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I.  INTRODUCTION 

A.  DISCUSSION 
1.  general 

The  purpose  of  this  thesis  is  to  extend  the 
existing  version  of  MCORTEX  to  a  distributed  mult  i-r ompu ter 
real-time  executive  which  transcends  the  boundaries  of  a 
length-limited  parallel  system's  bus,  the  MULTIBUS.  This 
extension  is  provided  by  a  local  area  network  (LAN)  medium, 
the  Ethernet,  and  .  the  additional  operating  system 
primitives. 

A  s  the  anti-air  warfare  (AAW)  system  of  the  1982  's 
for  the  U.S.  Navy,  the  AEGIS  Weapon  System  captured  the 
attention  of  a  project  group  at  the  Naval  Postgraduate 
Scnool  v  N  P  S )  .  The  project  group  was  formed  to  look  at  the 
AN/SPY-1A  phased  array  radar  processing  unit.  This  unit  was 
selected  due  to  the  time  critical  nature  of  the  processing 
requirements,  i.e.,  the  fast  reaction  to  inbound  hostile  air 
contacts  (missile  ar.d  aircraft!.  The  AEGIS  Modeling  Group 
has  been  working  on  the  VLSI  architecture  and  the  MCORTEX 
real-time  executive  for  several  years. 

The  fundamental  objective  is  to  utilize' 
commercially  available  LSI  and  VLSI  components  that  can  be 
implemented  in  a  modular  form  within  the  AEGIS  Weapons 
System .  Subsequent  low  cost  is  a  desirable  effect,  but  the 


must  be  mutually  exclusive,  but  it  is  highly  undesirable  to 
Diace  an  a  priori  seauence  constraint  on  several  Droducers. 
Each  producer  obtains  a  tic«et  number  from  seauencer  S  for 
depositing  its  message  in  the  buffer.  Once  a  process  obtains 
a  ticket,  it  merely  waits  for  the  completion  of  all 
Droducers  that  obtained  prior  tickets.  Each  producer 
executes  the  code  illustrated  in  Figure  2  and  each  consumer 
executes  the  same  code  shown  in  Figure  1. 

The  producers  block  in  the  following  circumstances: 

(1)  Another  producer  has  a  lower  ticket  value  and  as  yet 
has  not  deposited  his  message. 

(2)  The  single  consumer  is  unable  to  keep  up  with  the 
messages  deposited  in  the  buffer. 

C.  A  DISTRIBUTEE  SYNCHRONIZATION  MODEL 
1.  Synchronous  Eventcounts 

In  distributed  clusters  without  shared  memory,  a 
change  to  an  eventcount  Jvia  advance)  takes  time  to 
propagate  down  communication  lines  to  other  systems.  Two 
major  options  exist:  (1)  implement  all  eventcounts  so  that  a 
given  eventcount  exists  only  in  the  cluster  where  it  is  most 
freauently  accessed.  All  other  clusters  which  need  the  value 
must  make  remote  accesses  to  the  value.  [2)  distribute  the 
eventcount  values,  so  that  each  cluster  maintains  a  local 
copy.  The  latter  option  is  that  selected  in  this  extension 
of  M CORTEX . 
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Ir  synchronization  problems  that  require  exclusive 
use  of  a  resource,  the  pventcount  alone  is  inadequate.  Two 
or  more  processes  desiring  to  use  a  shared  resource  or 
write  to  a  shared  buffer  location  are  natural  examples. 
Another  kind  of  an  object,  known  as  a  "sequencer’’  can  be 
used  to  provide  the  needed  total  ordering.  A  sequencer  is 
considered  a  natural  number  generator,  i.e,  it  returns  the 
sequence  0,1,2,...,  etc.  Only  one  operation  exists  on  a 
sequencer  -  ticket.  When  applied  to  a  sequencer  S,  ticketfS) 
returns  a  non-negative  integer  value  as  its  result.  The 
ticket  primitive  is  based  on  the  idea  of  the  first-come 
first-served  principle  used  in  everyday  life.  A  ticket 
machine  in  a  catalog  sales  store  or  shoe  store  is  an 
example.  The  ticket  machine  issues  successive  integer  values 
on  the  ticket,  and  the  next  customer  to  be  served  is  based 
on  the  number  on  the  ticket.  The  store  clerk  can  determine 
the  next  person  to  be  served  by  merely  adding  one  to  the 
previously  served  number.  The  customers  are  served  in  first- 
come  first-served  order.  If  a  customer  with  the  next  ticket 
number  has  walked  out  of  the  store  when  his  number  is 
called,  he  loses  his  turn  and  must  get  another  ticket.  This 
service  policy  is  usually  implenen ted  in  both  stores  and  in 
computer  operations  by  a  watchdog  timer. 

The  use  of  sequencers  implies  mutual  exclusion  not 
nresent  in  eventcounts.  In  the  case  of  multiple  producers, 
in  a  producer-consumer  relationship,  all  message  deposits 


(2)  the  producer  does  not  store  the  (i  +  N)th  value  into 

the  buffer  until  the  i-th  value  has  been  read  by  the 
consumer  . 

It  is  important  to  note  that  in  the  above  producer- 
consumer  example,  each  eventcount  has  only  one  writer.  In 
the  usual  semaphore  solution  both  processes  would  modify  the 
same  synchronization  variable.  For  example,  let  PCS) 
represent  the  synchronizing  primitive  where  processes  wait 
for  S  '.some  resource)  to  become  greater  than  zero  and  then 
subtract  1  from  S  before  proceeding.  Further,  let  V ( S ) 
represent  the  synchronizing  primitive  where  the  processes 
add  1  to  S  before  proceeding.  With  this  type  of 
synchronization  the  consumption  and  production  of  a  result 
or  resource  requires  that  all  processes  read  cr  write  S.  A 
reduction  in  write  competition  often  occurs  in  eventcourt 
solutions,  resulting  in  simplified  correctness  proofs  and 
simplifying  the  synchronization  of  physically  distributed 
processes . 

The  power  of  eventcounts  rest  ir  their  ability  to 
achieve  synchronization  through  a  relative  ordering  of 
events,  rather  than  by  mutual  exclusion.  In  the  previous 
example,  concurrency  of  execution  is  guaranteed  if  the 
producer  starts  out  several  steus  ahead  of  the  consumer  and 
the  speed?  of  production  and  consumption  are  eaual.  In  that 
case  there  does  not  exist  a  time  when  the  consumer  or 
oroducer  must  wait  for  the  other  to  complete  an  operation. 
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producer:  procedure; 


i  =  01 

do  while  (FOREVER); 

,1  =  read (MESSAGE_IN) ; 
k  =  read ( MESSAGE  OUT)  I 
if  ( ( J  -  k)  >=  NT  then 

call  await(MESSAGF_OUT,  k  +  1); 

/*  if  difference  in  eventcount  values 
exceeds  buffer  length  then  block  */ 
me ssage_buf fe r I i  MOD  M)  =  receive_message ; 
call  advance! MESS  AGE  IN); 
i  =  i  +  l; 

end;  /*  do  while  */ 
end;  /*  procedure  */ 


consumer:  procedure? 
i  =  i; 

•do  while  (FOREVER)? 

call  await ( MESS  AGE  IN,  i) ? 

/*  if  MESSAGE_I N  <  i  then  block  */ 
call  xmit_7iessage(message_buf  fer(  (i-1 )  MOD  N  )  )  ? 
rail  advanced  MESS  AGE  OUT); 
i  =  i  +  l; 
end?  /*  do  while  */ 

end?  /*  Drocedure  */ 


Figure  1  Producer-Consumer  Process  Synchronization 
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Freouently  a  process  -nay  rot  wish  to  continue 
executing  unless  an  event,  in  a  class  in  -which  it  has 
interest,  has  occurred.  ?.  'busy  wait'  could  be  implemented 
easily  by  looping  around  an  execution  of  a  read(E)  primitive 
until  a  specified  value  of  the  eventcount,  E,  is  reached. 
The  imDlication  of  wasted  CPU  cycle  time  is  evident  and  in 
many  instances  could  be  avoided.  A  process  can  voluntarily 
block  itself  with  an  avait(E,  v)  primitive  call.  The  calling 
process  will  remain  suspended  (i.e.,  not  ready  for 
execution)  until  the  value  of  E  is  at  least  v.  Processes 
written  in  PL/I  -  like  .pseudo-code,  as  illustrated  in  Figure 
1,  demonstrates  the  use  of  the  advance  and  await  primitives. 
The  producer  and  consumer  process  must  synchronize  their  use 
of  a  shared  N-oell  circul  -  buffer.  The  circular  buffer  is 
implemented  as  an  array  in  shared  memory  with  indices  from 
7  to  N-l  .  Two  eventcounts  MESSAGE_IN  and  b’ESS AG E_0UT  are 
used  to  synchronize  the  producer  and  consumer.  The  producer 
generates  a  series  of  messages  by  calls  on  a  function 
recei ve_message'  and  stores  the  i-th  iteration  in 
message_ouf fer ( ( i-1  )  moa  N ) .  The  consumer  reeds  these  values 
out  of  the  buffer  in  order  and  consumes  them  by  calling  a 
xmi t_message  ’  subroutine  and  advancing  eventcount 
NFSS  AGF_0UT . 

The  two  eventcounts,  MFSSAGE_IN  and  MESSAGE_OUT, 

coordinate  the  use  of  th°  buffer  so  that: 

(1)  the  consumer  does  not  read  the  i-th  message  from  the 
buffer  until  it  has  b°en  stored  by  the  producer,  ar.l 
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synchroniza  ti  on  variable,  known  as  a  "sequencer,''  is 
needed. 

An  eventcount  is  primarily  a  count  of  the  number  of 
events  of  a  particular  class  that  have  occurred  in  the  past. 
It  can  be  considered  a  non-negative  integer  variable  whose 
value  never  decreases.  This  is  reasonable,  since  events 
cannot  'unhapoen .  ' 

2.  Model  Primitives 

To  signal  the  occurrence  of  events,  an  advance 
primitive  is  used.  Two  primitives,  await  and  read,  are  used 
to  obtain  values  of  eventcounts.  A  primitive  operation 
advance(E)  signals  the  occurrence  of  an  event  in  the  class 
associated  with  the  eventcount  E.  This  operation  increases 
the  integer  value  of  E  by  1.  The  value  of  the  eventcount 
eauals  the  number  of  advance  operations  performed  on  it.  The 
initial  value  of  an  eventcount  is  zero. 

8  process  can  observe  the  value  of  an  eventcount  in 
one  of  two  ways.  The  value  may  be  read  directly  using  the 
primitive  read(E),  or  the  process  can  block  itself  until  the 
evertcour.t  reaches  a  specific  value  v  using  thp  await(E,v) 
primitive.  The  value  returned  by  read(E)  counts  all  of  the 
advance  operations  that  precede  the  execution,  and  may  or 
may  not  count  those  in  progress  during  the  read.  The  result 
of  read(E)  is,  therefore,  a  lower  bound  on  the  current  value 
of  F  after  the  read,  and  an  upper  bound  on  the  value  of  E 


before  the  read. 


nornally  unneccessary  for  a  process  to  know  the  names  or 
residences  of  other  processes. 

This  model  makes  no  assumptions  about  the  environmental 
properties  of  systems  and  consequently  is  directly 
applicable  to  distributed  systems.  \  distributed  system  is 
defined  as  a  system  which,  due  to  the  lack  of  a  common 
memory,  reauires  communication  among  processes  to  be  via 
communication  channels  involving  unpredictable  time  ddays. 

B.  WDEL  VARIABLES 

1.  Eventcounts  and  Seauencers 

Unlike  the  semaphore  model,  the  MCOkTEX  mol  el 
solves  the  synchronization  problem  in  terms  of  timing 
constraints  on  occurrences  of  events,  instead  of  mutual 
exclusion.  Events  are  divided  into  event  classes  and  events 
of  a  given  class  are  represented  by  an  associated 
synchronization  variable  of  the  type  ’eventcount .  ’ 
Primitive  operations  exist  that  permit  processes  to  signal 
and  observe  occurrences  of  events. 

The  eventcount  alone  is  inadeouate  in  certain  types 
of  timing  constraints  problems.  This  type  of  synchronization 
problem  has  the  characteristic  that  the  order  of  different 
activities  is  rot  specified  in  advance.  Instead  the 
synchronization  system  dynamically  defines  a  total  order 
among  them.  To  deal  with  this  type  of  constraint  a 


II.  THE  EVENTCOUNT  MODEL 

A.  A  MODEL  CF  SYNCHRONIZATION 

A  computer  system  that  manages  resources  used  by 
concurrently  operating,  independent  users  requires  a 
mechanism  that  allows  processes  to  synchronize  the  use  of 
shared  resources. 

The  most  common  existing  models  of  synchronization  are 
based  upon  the  principle  of  mutual  exclusion  and  shared  data 
to  achieve  synchronization.  Semaphores  [Ref.  71  and  monitors 
[Ref.  S]  are  based  on  the  concept  of  mutual  exclusion.  In 
this  context  mutual  exclusion  is  a  mechanism  that  forces  the 
time  ordering  of  execution  of  pieces  of  code,  called 
critical  sections. 

The  characteristics  of  the  semaphore  and  monitor 
synchronization  models  have  undesirable  effects.  These 
effects  include  complex  proofs  for  program  correctness  and 
limitations  on  applicability  to  distributed  systems. 

The  model  upon  which  MCORTEX  is  based  is  an  event 
oriented  model  of  synchronization  in  which  processes 
coordinate  their  activities  by  signalling  and  observing 
events  via  synchronization  variables,  known  as  even tcounts" 
and  ’’sequencers.'’  These  synchronization  variables  are 
interfaces  for  all  interaction  among  processes.  It  is 


the  control  of  8C0RTEX .  He  also  developed  access  mechanisms 
to  the  MCCHTiX  supervisor  compatible  with  Digital  Research's 
PL/I-86  language  system.  User  programs  could  then  be 
developed  in  a  high  level,  portable  language.  The  Kernels  of 
VCORTEX,  system  processes,  and  user  processes  could  then  be 
loaded  into  single  board  processors  from  the  CP/M-66 
environment.  Just  as  importantly,  access  to  the  disk  sharing 
capabil tities  of  the  multi-user  CP/M-86  system,  via  MCORTEX 
processes,  was  made  possible.  P.owe's  efforts  were  a 
culmination  of  the  planned  synergism  of  the  individual 
research  projects. 

C.  STRUCTURE  OF  THE  THESIS 

The  goals  of  this  thesis  are  to: 

1.  Extend  the  existing  MCORTEX  real-time  executive  for 
a  single  cluster  of  single  board  computers  with 
shared  memory  to  a  real-time  executive  for  a 
multiple  cluster  system  without  shared  memory. 

c  .  Extend  the  existing  MCOFTEX  without  introducing 
substantial  changes  either  to  the  MCORTEX  executive 
or  its  primitives. 

3.  Use  the  Ethernet  interface  between  clusters  to 
communicate  systems  data. 

Chapter  I  discusses  the  overall  intent  of  the  AECIS 
Weapons  System  Simulation  Project  and  the  emphasis  area  this 
thesis  covers  in  accomplishing  project  goals. 


of  an  operating  system  tailored  to  real-time  image 
processing.  His  design  used  the  MULTICS  concept  of 
segmentation  and  oer  process  stacks  and  Heed  and  Kanodia's 
iPef.  2]  eventcount  synchronization  methods.  Rapantzikos 
(Ref.  31  began  the  initial  implementation  of  Wasson's 
efforts.  At  this  point,  MCORTEX  used  the  concept  of  a  ’’two 
level  traffic  controller’  to  effect  processor  multiplexing 
among  eligible  processes. 

Cox  [Ref.  1]  simplified  the  design  of  MCORTF.X.  He 
reduced  the  traffic  controller  to  one  level  of  abstraction, 
favoring  reduced  MCORTFX  execution  overhead  over  the 
security  of  the  two  level  traffic  controller.  Cox's  other 
contribution  was  the  addition  of  a  "gatekeeper"  module  to 
the  entry  to  the  operating  system,  so  the  user's  access  to 
system  calls  was  simplified.  Klinefelter  [Ref.  5] 
generalized  Cox's  work  and  developed  a  technioue  to 
dynamically  interact  with  the  operating  system  during  its 
execution. 

During  the  early  stages  of  development  of  MCORfEX 
concurrent  research  efforts,  within  the  AEGIS  Modeling 
Group,  were  producing  a  multi-user  CP/M-86  based  disk 
sharing  environment.  It  was  envisioned  this  system  would  be 
used  to  develop  software  in  support  of  the  SPY-1A  processing 
f'mulati  on . 

Kowe  (Ref.  6l  brought  the  powerful,  highly  portable 
functions  of  the  multi-user  CP/M-36  operating  system  under 


The  distinction  must  te  made  between  user  processes 


and  system  processes.  MCOPTEX  is  the  executive  which 
provides  primitives  to  allow  processes  to  synchronize  and 
communicate  acynchronousl.y .  The  only  system  process  invoked 
by  MCORTEX  is  the  device-dependent  Ethernet  Communication 
Controller  Board  (ECC3)  handler  and  packet  interpreter.  This 
system  process  is  resident  within  one  SBC  at  each  cluster. 
as  a  consumer  of  Ethernet  Bequest  Packets  (EPP),  produced  by 
each  kernel,  this  virtual  processor  does  not  compete  against 
other  processes  for  a  time  auar.tum.  It  is  through  the  EFfP's 
that  user  processes  make  known  their  need  to  transmit 
information  over  Ethernet.  It  is  transparent  to  the  user 
processes,  however,  that  an  ERP  is  generated?  MCORTEX  takes 
care  of  this  detail.  The  ECCB  handler  and  packet  interpreter 
is  scheduled  under  MCCRTEX  and  never  surrenders  the  CPU. 
When  it  does  not  have  any  Ethernet  Reauest  Packets  to 
consume,  it  idles  in  a  "Busy  Wait"  loop.  It  is  anticipated 
that  its  wait  will  be  minimal.  User  processes  are  tbosp 
which  are  independent  of  cluster  hardware,  generally  cyclic 
in  nature,  and  provide  a  function  in  support  of  the  Aegis 
Weapon  System  Simulation  and  Modeling  effort. 

B.  BACKGROUND 

The  initial  design  of  MCORTEX  was  completed  in  1980.  The 
implementation  for  the  iSPC  86/12  singl°  board  processors 
was  completed  in  three  Naval  Postgraduate  School  theses  ir. 
1981  and  1962.  Wasson  fRef.  ll  defined  the  detailed  design 
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Derformar.ee  is  realized  by  expanding  MCORTEX  to  allow 


multiple  Kernels  to  scheiu  ?  processes  that  synchronize  and 
communicate  via  an  intercluster  bus  (Ethernet).  The  benefits 
of  interconnecting  processing  nodes  to  facilitate 
information  exchange  and  resource  sharing  has  long  been 
recognized.  These  recognized  benefits  are  beirg  applied  in 
the  development  of  extended  MCORTEX.  The  collection  of 
available  clusters  and  the  high  speed  interconnect  is 
collectively  'Known  as  RTC*  (Real-time  Cluster  Star).  As  will 
be  seen,  the  Kleene  closure  connotes  the  true  power  and 
extensibility  of  MCORTEX. 

The  locality  of  processing  modules  in  a  real-time 
environment  is  tantamount  to  speed  and  efficiency.  By 
effectively  co-locating  real-time  sensors  and  related 
processing  modules,  real-time  data  aouisition  and  processing 
is  assured.  The  use  of  the  Ethernet  medium  allows  the 
extension  of  needed  process  synchronization  and  interprocess 
communications  to  processing  node^  which  cannot  be  located 
physically  close  enough  for  shared  memory. 

As  a  fully  distributed  real-time  executive,  MCORTEX 
consists  of  single  board  resident  kernels  wMch  support 
mult i processing.  Process  sy nchroni za ti on  between  virtual 
processes  in  the  same  cluster  or  in  different  clusters  is 
provided,  entirely  transparent  tc  user  processes,  through 
integrated  cluster  hardware  and  kernel  primitives. 


proposed  replacement  of  the  current  four-t.ay  AN/UYK-7 
computers,  of  the  AM/SPY-1A  phased  array  suite,  is  not  soley 
cost-based.  Reliability  and.  functional  redundancy  in  the 
evert  cf  failure  are  extremely  important  criteria.  Mean  time 
to  repair  ( MTTR )  is  a  crucial  issue  for  deployed  units  (ship 
or  aircraft),  due  primarily  to  the  unavoidable  disrupted  Sea 
Lanes  of  Communication  (SLOC).  An  onboard  technician  could 
discard  a  failed  component  and  replace  a  low  cost  LSI 
device,  such  as  a  microprocessor,  from  an  onboard  supply 
bin. 

The  project  team  has  produced  (up  to  and  including 
this  thesis)  a  highly  modular  hardware  base,  integrated  with 
an  pqually  modular  and  highly  extensible  software  base.  The 
use  of  Ethernet  as  the  highest  level  bus  has  introduced 
another  commercial-grade  product  into  an  existing  system  cf 
commerc ial-grade  products.  As  an  established  standard  in 
the  mar ketplace ,  the  low  cost,  availability,  and  support  cf 
Ethernet  is  virtually  guaranteed  for  years  to  come. 

2.  Specific 

we  define  a  cluster  as  a  group  of  single  board 
computers  (SPC),  controlled  by  multiple  kernels  of  MCORTEX, 
sharing  a  common  backplane.  The  integration  of  the  kernels 
with  a  general  purpose  commercially  available  operating 
system  (CF/M-86)  collectively  provides  multiprogramming 
capability,  multiprocessing  capability,  and  standard  disk 
operating  system  (DOS)  functions.  Increased  cost- 


producer:  procedure? 


do  while  (FOREVER),* 
t  =  ticket  (S ) ; 

/*  producers  synchronize  #/ 
call  await ( MESSAGE_I N  ,  t)I 

/*  at  this  point  in  execution  it's  this 
processes'  turn,  but  now  must 
synchronize  with  the  consumer  */ 
j  =  read (MESSAGE  IN); 
k  =  read ( MESS  AGE_OUT ) ; 
if  (  ( ,]  -  k )  >=  N )  then 

call  await(MESSAGE_OUT,  k  +  1); 

/*  if  buffer  is  full  then  block  */ 
message_buf fer ( t  MOD  N )=receive_message (  )  J 
call  advanced  MESS AGE_IN  ) ; 
end;  /*  do  while  */ 

end;  /#  procedure  */ 


Figure  2 


Mult i pi e-Producers /Single -Consumer  Relationship 


We  define  a  local  eventcount  to  be  an  eventcount 
which  is  not  accessed  outside  the  cluster.  We  define  a 
remote  eventcount  as  one  which  is  accessed  in  at  least  two 
clusters.  A  producer  at  a  cluster  simply  advances  an 
eventcount.  If  the  eventcount  is  a  remote  eventcount,  the 
operating  system  generates  the  necessary  commands  which 
advance  a  local  copy  as  well  as  the  remote  copies  of  this 
eventcount.  The  di st ri buti vi ty  of  the  eventcount  is 
entirely  transparent  to  the  producer  and  consumer.  Orly  the 
operating  system  knows  in  which  cluster  the  producers  and 
consumers  reside  during  their  lifetime. 

By  transmitting  the  eventcount  value,  the 
robustness  of  the  system  is  assured.  Even  if  the 
transmission  message  is  lost  or  not  properly  received,  the 
very  next  advance  and  a  subsequent  successful  transmission 
will  bring  th°  remote  copy  up  to  its  correct  value.  The  non¬ 
decreasing  nature  of  the  eventcount  value  accounts  for  this 
robustness  . 

The  design  modifications  to  MCORTEX  to  allow  the 


III.  SYSTEM  ARCHITECTURE 

A.  HARDWARE  REQUIREMENTS 

1*  System  Configuration 

A  cluster  of  Real-Time  Cluster  Star  (RTC*),  as 
shown  in  Figure  3,  is  based  on  the  INTEL  iSBC  86/12A. 
single  Doard  computer  (SBC)  with  MULTIBUS  serving  as  the 
iHAl§cluster  bus.  Figure  4  illustrates  two  clusters 
connected  by  the  Ethernet  LAN  medium,  which  serves  as  the 
in.tercl uster  bus. 

Although  only  four  SRC's  are  shown  at  each  cluster, 
the  limitation  is  entirely  dependent  on  the  number  of  bus 
masters.  A  bus  master  can  drive  the  command  and  address 
lines:  it  can  control  the  bus.  Since  multiple  bus  masters 
exist  in  this  configuration,  some  means  must  be  available  in 
bardwarp  to  arbitrate  their  simultaneous  reauests  to  use  the 
MULTIBUS.  A  customized  random  priority  bus  resolver, 
designed  specifically  for  this  system,  serves  a  maximum  of 
eight  bus  masters.  A  bus  slave,  such  as  a  RAM  board,  cannot 
control  the  bus  and  does  not  require  arbitration  circuitry. 

Two  shared  memory  boards  also  share  tne  MULTIBUS. 
5  32K  ram  extension  board  is  used  as  shared  memory  for 
process  synchronization  and  control  under  MCORTEX  and  for 
CP/m-86  multi-user  system  control.  A  64K  R4M  extension 
board  provides  additional  shared  memory  required  for  user 
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process  -lata  communications.  Two  hard  disk  systems  are 
available  for  application  process  use  within  a  cluster.  The 
H EMEX  hard  disk  system  has  a  disk  controller  card  which  is 
placed  in  an  odd  slot  (reauired  for  a  bus  master)  in  the 
MULTIBUS  backplane. 

The  InterLAN  NI3010  Ethernet  Commun ica ti ons 
Controller  is  a  MULTI RUS-based  single  board  processor  which 
along  with  a  transceiver  provides  the  cluster  with  a 
complete  connection  to  an  Ethernet  medium.  This  is  the 
hardware  extension  to  the  cluster  which  allows  MCORTEX  to  be 
distributed  over  the  Ethernet. 

Although  only  two  clusters  are  shown  in  Figure  4, 
the  Ethernet  specification  [Ref.  9]  allows  for  a  maximum  of 
1024  nodes.  However,  the  limiting  factor  in  MCORTEX  is  the 
number  of  clusters  that  can  be  addressed  with  the  current 
packet  routing  algorithm.  As  will  be  discussed  in  Chapter 
4,  the  upper  bound  is  16  clusters  which  is  more  than 
adequate  considering  the  current  availability  of  only  two 
NI3010  boards  and  three  N! 3210  boards  (enhanced  version  of 
the  NI3015J )  m  the  AEGIS  Simulation  Laboratory  at  the  L.S. 
Maval  Postgraduate  School,  Monterey,  California. 

An  experimental  system  that  contains  both  analogous 
and  dissimilar  components  to  that  of  KTC*  is  CM*  [Ref.  1C]. 
The  most  important  comparison  is  between  CM+'s  Kmap  and 
’•TC*'s  NI3010  and  Driver.  The  Knap  must  effectively  route  a 


FIGURE  4  Real-Time  Cluster  STAR  Architecture 


shared  address  between  clusters 


whereas  the  ’ll  33 10  Driver 


routes  ar.  ontir°  datagram  of  information.  The  irterrluster 
response  time  of  fCmap  is  on  the  order  of  36  microseconds, 
while  the  Ethernet  is  on  the  order  of  milliseconds. 
Therefore,  the  use  of  Ethernet  is  appropriate  where 
relatively  Ions  messages  with  not  very  demanding  response 
tirrns  ar^  used.  The  Kmap  has  a  relatively  low  transfer  rate 
with  fast  response  times.  Additionally,  the  cost  of  the 
M3O10  and  the  Driver  development,  the  flexibility,  and  i T  s 
extensibility  is  far  superior  to  the  Kmap.  The  >113213  :s 
expected  to  further  increase  the  speed  and  efficiency  of 
intercluster  communications. 

2.  The  iSBC  86/12 A  Single  3oard  Computer 

The  iSBC  96/12.A  board  includes  a  16-hit  CPiJ ,  6  4* 
bytes  of  dynamic  R.A'i,  a  serial  commur ications  interface, 
three  8-hit  programmable  parallel  I/O  ports,  programmable 
timers,  priority  interrupt  control,  MILT  I  BUS  ir.t°rface 
control  logic,  and  bus  expansion  drivers  for  interface  with 
other  MULTIEUS  i  n  ter  f  ace-compa  t.  i  b  ]  e  expansion  hoards.  The 
iSnC  Q6/12 A  hoard  has  an  interrial  bus  for  all  onboard  memory 
and  I/O  operations  and  accesses  MULTIBUS  for  all  external 
memory  and  I/O  operations.  Therefore,  local  (  onboard) 
operations  do  rot  disturb  the  MULTIBUS  interface  available 
for  parallel  processing  wh°n  several  bus  masters  (e.g.,  Dt'A. 
devices  and  other  SPC's)  are  operating  concurrently. 
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Th°  1S3C96/12A  provides  a  three  level  hi  erarohi  <*a  1 
bus  structure.  At  the  first  level,  t h e  hJ- 6  processor 
communicates  through  tha  nr.  ooard  bus  with  un  to  32K  of  «ov, 
with  serial  and  parallel  I/O  ports  and  with  tne  dual-port 
bus.  Control  and  access  to  local  RAM  is  orovided  by  the 
second  level  dual-port  bus.  The  third  bus  level,  the 
MULTIPUS  interface,  provides  access  to  the  MULTIFT’S.  The 
presently  used  wiring  option  prohibits  off  board  across  to 
local  RAM,  so  that  the  local  R»m  is  protected  from  external 
con  t ani nation. 

3.  The  8006  Microprocessor 

The  8006  microprocessor,  the  heart  of  the  single 
board  computer,  performs  the  system  processing  functions  and 
generates  the  address  and  control  signals  to  access  memory 
and  I/O  devices. 


This  high  performance, 


general  purpose 


mi rr oprocessor  base  of  the  iSBC86/l?A  contains  ar 
Execution  Unit  (EU)  and  a  Bus  Interface  Unit  fBIU).  EU 
functions  are  supported  by  instruction  fetches  and  operand 
reads  and  writes  conducted  by  the  BIU.  The  Bill  can  stack 
instructions  in  an  internal  P  AM  to  a  level  of  six  deeo 
increasing  EU  efficiency  and  decreasing  bus  idle  time,  a  ie- 
bit  arithmetir/logic  unit  (ALU)  in  the  FU  maintains  the  CPU 
status  and  control  flags,  and  manipulates  the  general 
registers  and  instruction  operands,  /'ll  registers  and  data 


Daths  in  the  fu  are  16  bits  wide  for  fast  internal 
transfers  . 

The  has  p'.ght  16  hit  general  purpose 

registers.  Four  byte  addressable  registers,  known  as  the 


data  registers,  car 

be  used 

wi thou  t 

constrair  t 

in 

mo  s  t 

a  ri thmet ic 

and  logic 

opera  t.ions 

The 

rema i n  i  ng 

four 

are 

primarily 

pointer 

registers , 

but 

can  be 

u  sed 

as 

acri'nnlatnrs.  Additionally,  the  8(966  has  four  segment 
registers,  an  instruction  pointer  register  and  a  flag 
register  with  nine  st.tus  bits. 

The  8f986  can  address  up  to  one  megabyte  of 
memory,  ’viewed’  as  a  group  of  segments,  as  defined  by  the 
application.  A  segment  is  a  logical  unit  of  memory  that  may 
be  up  to  64K  bytes  long.  The  segment  registers  point  to  the 
four  currently  addressable  segments.  Programs  obtain  access 
to  code  and  data  in  other  segments  by  changing  the  segment 
registers  to  point  to  the  desired  segments. 

It  is  convenient  to  think  of  every  memory 
location  as  having  two  kinds  of  addresses,  physical  am 
logical.  A  physical  address  is  a  20-bit  value  that  ur.iuuely 
identifies  each  byte  location  in  the  megabyte  address  space. 
Physical  addresses  range  from  0H  through  FFFFFF .  Programs, 
however,  deal  with  logical  instead  of  physical  addresses.  A 
logical  address  consists  of  a  base  value  and  an  offset 
value.  Whenever  the  8IU  accesses  memory  -  t.o  fetch  an 
instruction  or  to  obtain  or  store  a  variable  -  it  generates 
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a  physical  address  from  the  logical  one.  This  is 
accomplished  by  shifting  the  base  value  left  four  bits  and 
adding  the  offset.  The  resultant  2f*  bit  value  is  then  used 
to  access  memory. 

4.  Ethernet 

Fthernet  is  a  local  area  network  (Lft'l)  optimized 
for  the  high-speed  exchange  of  data  between  information 
processing  eouipmeot  within  a  moderate-sized  geographic 
area.  It  is  the  result  of  a  col  labors ti ve  effort  by  Digital 
Eauipment  Corporation,  Xerox  Corporation,  ani  Intel 
Corporation.  The  Ethernet  specification  [Ref.  9l  provide., 
precise,  detailed  design  information  for  a  baseband  local 
area  network  and,  for  brevity's  sake,  only  general  aspects 
pertaining  to  the  RTC*  implement  at  ion  will  be  discussed 
here . 

Ethernet  implements  the  lowest  two  layers  of  the  ?- 

layer  OSI/ISO  model  [Ref.  11  pp .  46-53],  The  Data  Lirk 

layer  defines  the  format  and  addressing  of  packets  that  are 

broadcast  over  the  "Ether",  detects  transrii  csi  en  errors, 

controls  access  of  the  network  by  nodes,  and  allocates 

channel  capacity.  These  functions  are,  in  fact,  implemented 

in  the  NI3310  Fthernet  to  MULTIBUS  common  ica ti ons  controller 

board.  The  functions  carried  out  by  this  layer  for  sending 

and  receiving  transmissions  are  as  follows. 

a.  Data  Encapsulation/Decapsulation 

Defining  the  format  of  message  packets  -  the 
different  fields  of  information  within  the  packets. 
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Construe  tine  packets  from  data  supplied  ty  the 
nodes  through  the  higher  layers;  disassembling  network 
messages  and  supplying  data  to  the  hi  eh  or  layer 
protocols  of  the  node. 

Addressing  -  handling  of  source  and  destination 
addresses . 

Error  detection  -  physical  channel  transmission  errors. 

b.  Link  Management 

Channel  allocation  -  the  length  of  time  of  channel  use 
is  determined  by  the  packet  size. 

Channel  aerpss  -  access  to  the  ohann°l  is  controlled  by 
a  contention-avoidance-and-resolution  technique,  called 
CSMA/CD,  part  of  which  is  carried  out  in  each  of  the 
two  layers.  The  Data  Link  level  responds  to  the  channel 
or  carrier  sensing  of  the  Physical  layer.  This  means 
that  the  sender  defers  sending  in  the  case  of  traffic, 
sends  in  the  absence  of  traffic,  ar.d  backs  off  and 
resends  the  message  a  random  time  interval  later  in  the 
case  of  collisions. 

The  construction  and  processing  of  the  packets  that 
are  transmitted  on  the  Ethernet,  is  cart  of  the  data 
encapsulation  function  of  the  Data  Link  layer.  The  Ethernet 
packet  is  made  up  of  five  fields,  as  shown  in  Figure  5  (all 
bytes  are  eight  bits  in  length).  The  smallest  total  size  of 
a  packet  transmitted  over  Fthernet  is  64  bytes,  and  the 
maximum  size  of  a  packet  is  1,518  bytes  (these  figures  do 
not  include  the  eight-byte  preamble),  retails  of  the  fields 
are  Included  in  [Ref.  9l ,  so  the  only  field  discussed  in 
detail  will  be  the  destination  address.  Knowledge  of  this 
field  will  simplify  the  discussion  of  the  packet  routing 
algorithm  presented  in  Chapter  4. 
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A  Dacket  can  be  sent  to  one,  several,  or  all  notes 

si^u  1  taneous  1  y.  through  unique  broad  ca  s  t  i  ng  and  addressing 

capabilities.  The  address  of  the  node  (or  nodes)  that  thc' 

packet  is  intended  for  is  placed  in  this  field,  which  is  six 

bytes  in  length.  A  node  address  can  be  one  of  two  types: 

Physical  address  -  the  unioue  address  of  a  single  node  on 
any  Ethernet. 

Multicast  address  -  a  multidestination  address  of  one  or 
more  given  nodes  on  a  given  Ethernet,  of  which  there  are 
two  kinds: 

multicast  group  address  -  virtually  any  number  of  nod  ^ 
groups  can  be  assigned  a  group  address  so  they  are  all 
able  to  receive  the  same  packet  in  a  single  transmission 
by  a  sending  node.  This  is  a  key  feature  in  the  packet 
routing  algorithm  to  be  discussed  in  Chapter  4. 

broadcast  address  -  a  single  multicast  address  by  which 
a  packet  can  be  sent  to  the  set  of  all  nodes  on  a  given 
Ethernet . 

The  first  hit  in  the  Destination  Address  field  is 
set  to  indicate  a  physical  or  multicast  address.  The 
remaining  47  bits  specify  the  address  itself.  If  a  packet  is 
to  be  broadcast  to  all  nodes,  the  47  bits  are  all  set  to 
1.  The  47  remairing  bits  allow  for  2  **  47  (over  14T 

trillion)  possible  addresses. 

The  Physical  Layer  of  Fthernet  provides  a  ten- 
million-bit-per-second  channel  over  a  coaxial  cable  medium. 
It  specifies  all  the  essential  physical  characteristics  of 
Ethernet,  including  bit  encoding,  timing,  voltage  levels, 
and  two  compatibility  interfaces. 
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The  main  functions  of  this  layer  ere* 

Data  encodi ng/decodi ng : 

Generation  and  removal  of  64  preamble  bits  before  each 
packet  is  transmitted  for  synchronizat ion  and  timing  of 
messages  . 

Bit  encoding  and  decoding  -  between  the  binary  encoded 
form  of  the  Data  Link  level  and  the  phase  encoded  form 
reouired  for  transmission  on  the  coaxial  cable. 
Manchester  phase  encoding  is  specified  for  all  data 
transmitted  on  the  Ethernet  at  a  data  transmission  rate 
of  ten  million  bits  per  second  (12  Mbps). 

Channel  Access 

Transmission  and  reception  of  encoded  data. 

Carrier  sense  -  monitoring  the  channel  for  traffic  and 
signaling  the  Data  Link  layer  if  traffic  is  detected. 

Collision  detect  -  signaling  the  Data  I.in<  layer, 
transmission,  when  a  collision  is  detected. 

Two  important  compatibility  interfaces,  the 

transceiver  cable  interface  aid  the  coaxial  cable  interface, 

are  also  specified  in  the  Physical  layer.  Detailed 

information  regarding  these  interfaces  is  contained  in 

f Bef .  9]  . 


5.  5113010  Ethernet  Communication  Controller  Board 

In  the  following  discussion  of  the  NI3012  's 
operation,  reference  to  a  ’host'"  is  synonymous  with  a  single 
board  computer  in  a  cluster  which  contains  the  device  driver 
for  the  NI3010  board.  Details  concerning  this  driver's 
system  role  are  contained  in  Chapter  4. 

The  NI3010  2CCB  is  a  MULTI BUS-c ompa t l b 1 p  component 
that  Implements  layers  one  and  two  of  the  IGO/OSI  7-laycr 
model.  Although  orogramma b 1 e  as  a  polled  or  interrupt-driven 
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RMA  dpvice,  it  is  used  entirely  as  an  ir  terrupt-d  ri  ver: 
coTponert  in  this  implementation.  The  N 13010  serves  as  a  bus 
master  when  controlling  the  DMA  operatiors  betw^e;  the 
NI3310  c’lffers  and  the  host's  memory,  and  as  a  slave  to  the 
commands  of  the  host. 

The  host  controls  the  N 1301 by  writing  to  on  hoard 
registers  which  are  MULTIBUS  addressable  I/O  ports. 
Depending  on  the  state  of  execution,  the  host  may  direct  the 
N 1 30 1 0 : 

(1)  To  perform  a  load  conmard 

(2)  In  preparation  for  a  DMA  operation  -  load  a  memory 
address  and  a  byte  count,  or 

(3)  To  enable  an  interrupt  register,  to  inform  the  host 
when  a  dirpcted  operation  is  complete. 

The  host  programs  the  ill 30 10  by  writing  a  command 
to  the  command  register,  whose  I/O  address  is  curreitly  set 
at  B0H  'base  register).  The  command  function  codes  are 
contained  in  Table  3-1  of  [Ref.  12]  .  After  issuing  6 
command,  the  host  must  check:  for  a  value  in  the  Command 
Status  Register.  The  details  of  this  read  operation  are 
covered  in  [TJef.  12]  ,  but  briefly:  Any  value  other  thar  zero 
or  one  in  the  Command  Status  Register,  following  execution, 
represents  a  board  failure.  If  at  any  time  during  MCOnTEX 
execution  a  diagnostic  appears  that  indicates  an  C 1 30 10 
board  failure,  the  RTC*  system  ooera  tor  can  run  a  diagnostic 
program  that  fully  exercises  the  board.  The  code  and 
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rarge  wh°n  MCC^TRX  primitives  (access  to  cormon  memory)  ar« 
used  or  data  computed  by  a  producer  -rust  be  placed  n  sharM 
mere ry  for  consuroptior  by  another  process  within  that 
cluster.  MCOSTEX  performs  its  functions  by  setting  up  a 
section  of  common  memory  called  GLOBAL  memory.  Table  1  sr.ovs 
how  this  shared  resource  is  logically  organized  -Appendix  H 
contains  the  actual  nemory  locations). 

free ss  to  GLOBAL  memory  is  resolved  through  thr 
combination  of  a  hardware  bus  lock  (LOCK  prefix  preceding  a 
machine  level  instruction),  ard  a  software  lock 
(GLOBALSLOCK)  located  in  GLOBAL  memory.  MCORTEX  primitives 
that  access  GLOBAL  memory  set  the  hardware  ^us  leek  tn rough 
the  PL/M-96  function  LOCK  ASFT  [Ref.  16].  The  real  processor 
executing  the  kernel,  that  is  executing  LOCK^SE!  ,  is 
given  sole  access  to  the  MULTIBUS  for  the  duration  of  e 
single  instruction.  A  LOCK  prefix  preceding  a  n  XC::G 
instruction  causes  a  value  in  a  register  (contents  77K )  to- 
be  exchanged  with  GLOB  ALA-LOCK .  The  processor  then  exarines 


the  content?  of 

the 

exchange 

register. 

If  the  register  now 

contains  zero. 

t  h? 

processor 

is  grant°d 

access ,  if  not ,  th° 

k  e  m  n  e 1  r°p°ats 

the 

procedure 

until  a  ze 

ro  is  obtained  fro” 

OLCPALALOfX.  The  XCHG  instruction  reaui^es  two  Pus  cycles  to 
cwap  6-bit  values,  thus  without  the  LOC‘r  prefix  it  is 
possible  for  another  processor  to  obtain  the  bus  between 
cycles  and  ga  i "  ac^ss  to  the  partially-updated  GLOBAL$LOCK 
sema  pho  re .  4  hen  relinquishing  the  software  1 oc  <  ,  the  kernel 


IV.  D  ET  4 1_L  FT  SYSTP?  DFSIG\ 

A.  DESIGN  ISSUES 

1.  Real-Ti^e  Eic'cessin^ 

Heal  -Time  processes  are  of  a  t  ime-o  ri  *  i  cal  nature, 
and  as  such  are  always  resident  in  Tennry .  The  ti^e  recoined 
to  swap  a  real-time  process  out  of  memory,  to  ma<e  room  f n r 


another , 

would 

consume 

the 

very 

same  resource 

\  e  l  r  p 

allocated 

-  the 

CPU. 

The 

early 

designers  of 

t'CO .  TEX 

considered 

this 

issue 

careful  ly 

and  the  result 

is  an 

operating  system  that  minimizes  context  switching  overhead. 
MCORTEX  processes  resile  permanently  in  memory  once  loaded  i 
and  only  CPU  registers,  critical  to  a  context  switch,  are 
modified.  Just  as  important  are  issues  such  as: 
(1)  allocation  of  shared  resources,  (2)  process  integrity, 
'?>)  process  synchroni  za  ti  on ,  and  (4)  interprocess 
communi ra  t i on  . 

2.  Shared  Hesources 

Within  a  cluster  (^ipur*1  3}  are  thr^p  critical 
shared  resources  :  thp  NI3010  ECCP  (i.e.,  Ethernet.),  ro,rno' 
memory,  and  shared  memory  itself.  The  hierarchical  dus 
structure  limits  th°  access  of  each  real  processor  to  common 
memory  and  shared  memory,  and  the  bus  arbiter  grants  access 
in  a  random  manner.  Each  processor  executes  processes  in  its 
own  local  and  only  makes  memory  accesses  outsid0  that 
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Access  to  all  data  areas  resulting  from  a  single 


link,  is  referenced  to  a  common  data  segment.  ."tack 
pointers  are  referenced  to  the  stack  segment  register,  and 
free  space  pointers  to  the  extra  segment  register. 

Additionally,  some  PL/I-86  runtime  routines  assume  the 
contents  of  all  three  segment  registers  (DS,  SS,  FS  )  are 
identical . 

The  MCORTFX  CRFATF$PROC  parameters  incline  th'-> 
absolute  location  of  process  start,  stack,  and  data.  Per 

this  reason  it  is  advantageous  to  locate  processes 

absolutely  when  linking.  LINKR6  provides  such  an  option 
[Ref.  13  :  p.  7.6],  however,  the  ABSOLUTE  optior  is 

anDlicable  to  the  entire  C^D  file  created  and  cannot  be  used 
to  distribute  the  file  non-coritiguously  in  memory. 

Rowe  TRef.  6]  experienced  some  difficulty  using 
LINK96  as  described  in  [Ref.  13].  His  observation  was 
entirely  correct,  but  it  was  easily  corrected  by  generating 
a  rew  CP/M-86  operating  system  using  Version  1.1  CCP  and 
BFOS  (integrated  with  a  modified  BIOS).  Version  l.° 
contained  an  error  that  caused  the  128  byte  header, 
preceding  CVD  files,  to  be  parsed  incorrectly  at  file  load 
time.  Details  concerning  this  header  are  contained  in 
[Ref.  14l  .  The  BIOS  was  modified  due  to  the  removal  of  the 
bubble  memory  board  from  the  multi-user  CP/M-86  system.  This 
process  of  generating  a  new  CP/M-86  operating  system  is 
described  in  adequate  detail  in  [Ref.  11].  The  details 
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reau i red , 


memory 


reserved  for  CP/l^-86  may  hold  user 


J  processes. 

Descriptions  of  processes  in  memory  are  provided  to 
MCORTEX  through  the  CHEAT E$PROC  primitive.  This  ^CORTEX 
[  function  gives  the  process  a  unioue  identification  number, 

\  priority,  stack  (SS  ar.d  SP  registers),  next  execution 

address  (CS  and  IP  registers),  data  segmen t  ( DS  register), 
|  and  extra  segment  ( ES  register).  YCORTEX  establishes  tie 

process  initial  context  using  this  information  to  create  a 
virtual  processor,  which  is  a  software  abstraction  of  a  "eul 
I  processor.  The  virtual  processor  exists  as  a  combination  of 

data,  both  in  GLOPAL  memory,  and  in  each  process  stack.  When 
executing.  the  virtual  processor  becomes  identical  with  the 
|  real  processor  state.  Relinouishing  the  CPU  forces  the 

virtual  processor  status  into  GLOBAL  memory  and  the  process 
stack  into  local  memory. 

i  As  described  by  Rowe  [Ref.  6  :  p.  29],  special 

effort  has  been  made  to  accommodate  orocesses  created  under 
PL/I-86  and  linked  using  II\'K86.  LINIK86  concatenates  all 
I  PL/I-86  code  segments  into  one  segment  and  data  segments 

into  one  segment .  Thus,  PL/I-P6  processes  consist  of  a 
series  of  contiguous  code  segments  followed  by  a  series  of 

I  contiguous  data  segments.  Additionally,  at  run  time  PL/I-86 

routines  create  a  stack  following  the  data  area,  and  a  free 
space  following  th*3  stack.  The  resulting  configuration  is 
■  shown  in  Figure  3  of  [Fef.  6]. 


physical/multicast  bit 


r -  1  BYTE - - 

8  BYTES 

PREAMBLE 

6  BYTES 

1 

DESTINATION 

6  BYTES 

SOURCE 

2  BYTES 

TYPE 

1500  BYTES 

DATA 

4  BYTES 

FRAME  CHECK  SEQUENCE 

FIGURE  5  Ethernet  Packet  Format 
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process  is  completed,  the  state  of  the  system  is  rot 
disturbed. 

Access  to  MCORTEX  is  through  the  supervisor  at  the 
outermost  layer  of  the  MCORTEX  four  level  structure 
discussed  by  Klinefelter  (”def.  5  :  pp.  44-461. 

Also  resident  in  each  local  memory,  if  reouired,  is 
the  CP/M-86  operating  system.  In  this  configuration  the 
full  range  of  CP/M-86  utilities,  [  Fe  f .  lc]  and  [Fef.  14],  is 
available  to  the  user.  Additionally,  development  of  user 
processes  can  make  use  of  any  of  the  broad  scope  of 
commercially  available  products  compatible  with  CP/M-66. 
Figure  5  gives  a  representation  of  the  locations  of  the 
system  code.  The  diagram  includes  the  location  of  DBT-8C  as 
required  for  a  debugging  session.  A  developer  of  uspt 
processes  should  anticipate  needing  this  powerful  debuggirg 
tool?  thp  space  should  remain  reserved.  Also  depicted  are 
the  locations  of  the  MCCRTEX /MXTR ACE  loaders.  During 
load,  loader  memory  is  not  reserved,  and  rare  must  be  taken 
to  ensure  that  a  C^D  module's  code  or  data  section  toes  not 
overwrite  it.  It  is  permissible,  however,  to  include  this 
memory  as  part  of  a  module  stack  or  free  space,  since  these 
structures  are  developed  at  nodule  runtime  when  loader 
functions  hav»  been  completed. 

2.  User  Processes 

User  processes  may  be  located  in  areas  indicated  in 
Figure  6.  Additionally,  if  CP/M-86  utilities  are  not 


a  call  was  made  to  the  MCOFTEX  scheduler  ar.d  the  highest 


orionty  ready  process  was  divert  control  of  the  CPU.  For 
commun  icatior  between  processes  in  local  memo  ry ,  no 
interrupt  was  issued,  a  call  to  the  scheduler  was  made 
directly. 

The  use  of  the  interrupt  was  inconsistent  with  the 
philosophy  of  switching  processes  only  at  "safe”  points  in 
their  execution.  These  "safe"  points  were  required  because 
of  non-reentrant  PL/I-85  user  process  code.  An  interrupt 
must  not  occur  during  a  call  to  a  PL/I  procedure  that  is 
shared  among  multiplexed  processes.  Therefore,  the  original 
design  had  a  design  error  which  needed  correction. 

Also,  the  use  of  a  preemptive  interrupt  to  signal 
a  possible  change  to  all  real  processors  in  a  cluster  was 
somewhat  coun terproducti ve .  To  cause  all  real  processors  to 
he  disrupted  in  their  execution,  just  because  as  few  as  one 
virtual  processor  was  mad°  ready,  is  unjustifiable.  However, 
this  preemptive  interrupt  structure  has  been  maintaired  in 
MCORTEX  in  the  event  a  high  priority  process  must  be 
scheduled.  A  primitive  known  as  PREEMPT,  provides  this 
capability.  The  PREEMPT  primitive  is  the  mechanism  to 
schedule  time  urgent  processing  which  is  vital  in  real-time 
systems.  PREEMPT,  however,  must  be  used  carefully  and 
sparingly.  Processes  that  are  time  critical  must  only  use 
reentrant  code,  so  that  when  a  return  from  the  time  critical 
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eventcount  or  calls  the  await  primitive  ’risks  surrendering 
the  CPU  to  a  higher  priority  ''eady  to  run  process,  k  call  to 
the  adva-ce  primitive  always  results  in  a  call  to  the 
scheduler.  If  the  callire  process  is  still  the  highest 
priority  "ready  to  run"  process,  it  will  continue  in  its 
execution,  otherwise  another  virtual  processor  will  he 
scheduled  to  run  and  the  original  process  will  be  blocked 
.'ready'  if  an  advance  operation,  waiting  if  ar  await 
o  perat ion). 

Tr  the  event  there  are  no  user  processes  in  the 
ready  state,  the  kernel's  idle  process  will  run.  This 
Drnc°ss  blocks  itself  every  4  milliseconds  and  calls  the 
kernel  scheduler.  If  ary  offboard  operatior  caused  an 
onboard  process  to  be  readied,  as  the  only  process  "ready  to 
run",  it  will  be  scheduled.  The  idle  process  is  always 
"ready  to  run",  of  course,  but  it  has  the  lowest  possible 
priority. 

This  implementation  of  MC0RTEX  is  a  major  chan*^  in 
th*>  philosophy  of  previous  versions,  whereby  a  system 
irterrupt  under  MCORTEX  control,  in  conjunction  with 
interrupt  flags  maintained  in  GLOBAL  memory,  provided 
co^municat.  ion  initiation  between  real  processors.  Upon 
receiving  an  interrupt,  each  processor  checked  its  flag  in 
GLOBAL  memory  to  determine  if  the  interrupt  was  intended  for 
a  process  in  its  local  memory.  If  not,  the  process 
executing  at  the  time  of  the  interrupt  continued.  Otherwise 
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(7)  The  MI301C  noves  thp  received  frame  from  its  receive 
queue  to  host  memory.  The  ^1321?  prereeds  the  packet 
with  a  frame  status  byte,  a  null  byte,  ard  two  bytes 
containing  the  frame's  byte  length.  After  transferrin.'?: 
each  data  byte,  the  DMA  controller  increments  tb<= 
address  in  the  bus  addrpss  registers  arc  decrements 
the  byte  count  m  the  byte  count  registers.  The  113313 
generates  a  recei ve-Ott A-d one  interrupt  when  it 
finishes  transferring  the  frame  or  when  the  byte  count1 
reaches  zero. 

(8)  The  host  responds  to  the  RDD  interrupt  by  issuing  at 

intprrunt  code  of  zero,  disabling  the  interrupt  from 

the  NI3013  board. 

The  determination  of  the  order  in  which  commands 
are  given  is  entirely  dependent  on  the  application .  The  IcE 
byte  receive  buffer  allows  the  host  to  read  this  buffer  (via 

RDT  interrupt  operation)  at  its  own  convenience.  This 

buffers  the  MULTIBUS  from  the  unpredictable  arrival  times  of 
interclnser  traffic,  consequently  reducing  the  time-critical 
service  requirements  on  the  receiving  cluster.  In  contrast 
is  the  2K  byte,  single  packet,  transmit  buffer.  The  host 
system  should  strive  to  favor  outbound  packets  to  reduce  the 
processing  delay  by  any  processors  in  the  cluster. 


B  .  SOFTWARE  SFI-VICES 

1.  Operating  Systems 

A  copy  of  a  kernel  of  MCORTEX  resides  m  each 
processor's  local  memory  and  is  a  part  of  the  address  spar2 
of  each  local  process.  A-ldltionall  v,  GLOBAL  memory  is 
accessible  to  MCORTEX  to  facilitate  interprocess 


synchronization.  Processes  a  re  scheduled  for  execution  by  a 
kernel  of  MCORTEX  on  each  SBC.  Any  process  that  advances  an 


(5)  The  NI3P10  moves  the  trarsmit  packet  from  host  neno ry 
to  its  transmit  buffer  (only  one  packet  at  a  t  im«  may 
be  resident  in  this  buffer).  After  acceptirg  each  lata 
byte,  the  DMA  controller  increments  the  address  in  the 
bus  address  registers  and  decrements  the  oyte  count  in 
the  byte  count  registers.  When  the  byte  count  reaches 
zero  and  its  transmit  register  is  empty,  th*  'JI3P10 
interrupts  the  host  processor.  This  is  a  t ransmi t-DMA- 
done  (TDD)  interrupt.  The  transmit  data  is  now  stored 
in  the  transmit  buffer. 

(6)  To  transmit  this  lata  or  the  Ethernet,  the  host  issues 
a  Load  transmit  Tata  and  Send  command  (29H).  The 
NI301C  carries  out  the  command,  ref lec ti n.-?  its  status 
in  the  register.  The  host  must  read  the  status 
register. 

The  following  describes  what  happens  when  a  receive 
packet  goes  from  the  NI3010's  receive  aueue  (16K  byte 
capacity)  to  MULTIBUS  memory: 

(1)  The  host  issues  an  interrupt  code  of  4.  This  enables 

a  receive-block-available  ( RBA )  interrupt  from  the 
N 1 301 0 . 

(2)  The  host  gets  a  receive-block-available  interrupt,  "he 
host  now  knows  that  the  Ml3010's  receive  Queue  uas  a 
frame  awaiting  transfer  to  MULTIBUS  memory. 

(3)  The  host  writes  an  interrupt  code  of  zero  to  the 
NI3010's  interrupt  enable  register.  Writing  this 
register  clears  the  NI3010's  interrupt  line. 

Note:  Just  as  in  the  transmit,  process,  this  step 

ensures  that  the  DMA  controller  does  not  start  a 
DMA  transfer  as  soon  as  the  byte  count  register 
contains  a  non-zero  value. 

(4)  The  host  writes  the  24-bit  MULTIBUS  memory  adnress 
into  the  NI301P's  bus  address  registers. 

(b)  The  host  writes  the  byte  count  of  its  MULTIBUS  buffer 
into  the  N 1301 0's  byte  count  registers. 

(6)  The  host  initiates  a  DMA  transfer.  It  does  this  by 
issuing  ar  interrupt  code  of  7.  This  also  enables  a 
recei ve-DMA-done  interrupt  ^RDD)  from  the  NI3010. 


invocation  procedures  for  this  diagnostic  routin'5  is 
contained  in  Appendix  L. 

Of  particular  importance  is  the  requirement  to  read 
the  Command  Status  Resister  at  the  beginning  of  any  cole 
that  controls  the  :'l  13010 .  This  is  neccessary  because  of  the 
power-up  diagnostic  that  runs  at  system  start-up  or  due  to  a 
MULTIBUS  reset.  This  automatic  testing  feature  places  a 
value  in  the  Status  Register  that  must  be  read  to  clear  the 
register  before  any  commands  can  l e  issued  to  the  NI301P. 

The  NI3010  transmit  process  consists  of  obtaining 
data  packets  from  shared  data  memory,  via  a  DMA  operation, 
forming  them  into  Ethernet  frames,  and  successfully 
delivering  them  to  the  intercluster  bus  (the  "Ether"). 

The  following  describes  what  happens  when  a 
transmit  packet  goes  from  MULTIBUS  memory  to  the  NI3710: 

(1)  The  host  writes  an  interrupt  code  of  zero  to  the 
interupt  enable  register  on  the  MI3010.  Writing  this 
register  clears  the  N 1301 0's  interrupt  line 
■currently  set  for  interrupt  5). 

Note:  This  step  ensures  that  the  DMA  controller 
does  not  start  a  DMA  transfer  as  soon  as  the  byte 
count  registers  contain  a  non-zero  value. 

(2)  The  host  writes  a  24-bit  MULTIBUS  memory  address  into 
the  Ml3010's  bus  address  registers. 

(3)  The  host  writes  the  packet's  byte  count  into  the 
N 13010  's  byte  count,  registers. 

(4)  The  host  initiates  a  DMA  transfer  by  writing  to  the 
interrupt  enable  register  an  interrupt  code  of  6 . 
The  NI3010  will  now  interrupt  the  host  processor  when 
it  comDletes  the  DMA  transfer. 


merely  sats  GLOBA  L$LOCv  to  z^ro.  The  "granularity  of 
locking  by  the  kernels,  is  all  of  GIOPAL  memory,  i.e.,  no 
two  kern°ls  have  access  to  GLOBAL  re pc  ry  s imul t an e n usly  . 

Users  have  no  access  to  GLOBAL  merer/,  however 
MCOF.TEX  provides  for  user  control  of  shared  resources 
through  data  held  in  GLOBAL  memory.  Seauencers,  located  in 
the  sequencer  table  section  of  GLOBAL  memory,  are  used  to 
provide  a  turn  taking  mechanism.  Each  shared  resource  .s 
assigned  a  corresponding  sequencer.  When  processes  require 
a  resource,  they  reouest  a  turn  through  the  supervisory 
function  call  TICKET,  specifying  the  applicable  seouencer. 
TICKET  returns  a  number  indicating  the  callers  turn  at  the 
reauired  resource.  TICKET  advances  the  sequencer  value  in 
GLOBAL  memory  so  that  succeeding  requests  receive  higher 
numbers.  Given  the  s..cuatinn  where  a  "busy  wait."  is  not  to 
be  employed,  a  process  requesting  the  resource  then  makes 
another  supervisory  call,  this  time  on  AWAIT,  providing  loth 
an  identification  of  the  resource  and  the  process  ’'urn 
number.  If  the  resourre  is  not  busy,  the  process  will 
receive  immediate  access,  otherwise  the  process  gives  up  the 
CPU. 

3.  Process  Integrity 

The  design  of  MCOPTEX  relies  heavily  on  user 
cooperation  for  nrocess  integrity.  The  supervisor  controls 
access  to  the  MCORTEX  functions,  but  even  this  is  a  software 
control  and  a  process  that  i r t°n t i ona 1 ly  or  inadvertently 
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destroys  GLOBAL  data  would  be  disastrous.  fllthoueh  local  :< AM 
of  a  processor  is  inaccessible  from  MULTIBUS,  thus  protected 
from  a  'ruraway'  process,  common  memory  and  soared  memory 
are  not.  Protection  from  this  type  of  failure  reauires 
hardware  protection  not  presently  in  the  system.  The  low 
cost  of  microcomputers  however,  allows  for  redundant  rack 
up  systems  which  can  limit  the  effects  of  such  failur®  due 
to  a  processor  hardware  fault. 

4.  Process  Synch ron i za t ion 

Process  synchronization  is  accomplished  urder 
MCORTEX  through  the  fun-ctions  ADV&NCE,  AWAIT,  and  PREEMPT . 
These  synchronizing  primitives  are  supported  with  the 
functions  CFFATE$EVC,  CFEATF$SFO,  READ,  DFFINESCLUSTE: , 
DI STRIPUTION$MAP ,  and  TICKET.  Consumer  processes  use  AWAIT 
to  ensure  that  data  they  require  is  ready.  Prod)’?*- 

Drocesses  use  ADVANCE  to  inform  consumers  that  a  new 
iteration  of  data  has  been  computed.  PREEMPT  is  used  by 
process  to  directly  ready  another  Process.  This  primitive 
is  for  activation  of  high  priority  system  processes  of  a 
highly  time  critical  nature.  A  call  on  a  syncl.rooi  z  in* 
primitive  may,  or  may  not  result  in  rel i no u i s h i ng  th°  CPU. 
The  CPU  is  always  assigned  tc  the  highest  priority  rpady 
virtual  processor  on  each  board  regardless  of  which 
synchronization  function  envoked  the  scheduler  (except  for 
PREEVPT  ,  of  c  ourse  )  . 


before  using  ADVASCE  cr  AWAIT,  an  eventcount  rust 
be  created  using  CRFATESEVC.  Consumers  and  producers  tt°r 
communicate  using  the  agreed  upon  eventcount.  The  current 
value  of  an  ever  too unt  can  be  determined  through  a  call  on 
READ.  The  functions  of  CREATF$SEC  and  TICKET  are  as 
discussed  earlier,  but  with  broader  applications. 

The  only  entity  presently  distributed  by  MCORTEX 
over  Ethernet  is  eventcounts.  However,  this  feature  alone 
allows  distributed  processes  to  synchronize.  The  manner  in 
which  processes  synchronize  is  no  different  than  that 
already  discussed.  The  fundamental  issue  then  becomes  the 
means  by  which  an  eventcount  of  interest  can  be  made 
available  to  a  producing  or  consuming  process. 

Eventcounts  nay  be  used  in  any  number  of 
combinations.  Producing  and  consuming  processes  may  be 
resident  in  the  same  cluster,  different  clusters,  cr  mixed 
''i.e.,  a  producer  and  one  consumer  in  the  same  cluster,  with 
another  consumer  of  the  same  data  type  in  another  .cluster  )  . 
Processes  are  not  aware,  however,  as  to  their  own 
distribution  -  they  continue  to  advance  eventcounts  and 
a  wait  values  just  as  they  always  did.  This  transparency  is 
provided  through  the  primitives  DEFI NE$CLJSTES  and 
DISTRIBUTION$MAP. 

DEEI NE$CLUSTER  is  a  procedure  that  assigns  a  16-bit 
address  (the  last  two  bytes  of  the  destination  field  of  an 
rthennet  packet)  to  a  cluster,  and  DISTRIBUTIC)nj$MAP  causes 
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the  remote$addr  field  of  an  eventcour.t  name  i'see  Table  1) 
to  be  assigned  a  value.  It  is  necessary  to  statically  manage 
the  distribution  of  even  t  roun  t  s ,  ,iust  as  it  is  recessa^y  to 
statically  manage  blocks  of  shared  memory  for  ns<=r 
processes.  It  is  a  decision  that  must  be  made  by  personnel 
responsible  for  the  development  of  AEGIS  software  that  will 
"un  on  PTC*  under  MCOPTEX. 

A  user  process  does  not  n°ed  to  know  the  address  of 
the  cluster  in  which  it  resides,  nor  is  it  required  to  know 
the  cluster  addresses  of  processes  that  it  synchronizes 
with.  Therefore,  DEFINE$CLUSTER  and  DI STR IPUTI 0N$MAP  are  not 
primitives  called  by  a  user  process,  but  by  a  system 
process  that  calls  these  primitives  in  its  ini t  ia li za t i c a 
module.  As  mentioned  before,  ev°ntcounts  must  be  created 
prior  to  their  use.  The  convention  of  MCORTEX  is  that  user 
processes  do  not  create  or  defire  them  (as  a  constant)  ir 
any  way.  The  same  system  process  that  calls  DEFIMS$CLU5TFfi 
and  FISTR I  PUT I0N$M A P ,  also  creates  all  user  arid  system 
eventcounts  and  seauencers.  Thus,  symbolic  names  only  are 
us^d  by  user  processes  at  run-time  and  the  system 
initialization  module  at  creation  time,  providing  a  level  of 
security.  It  will  be  seen  later  how  this  security  is  even 
further  enhanced.  The  manner  in  which  user  and  system 
processes  are  created  is  covered  in  complete  detail  ir 
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5.  Interprocess  Communication 

N’COFTFX,  at  this  stage  of  developnnert ,  does  r.ot 
provide  any  m  pa  ns  by  which  data  (oroduced)  can  be 
transmitted  between  clusters.  Within  the  same  cluster, 
however,  shared  data  is  stored  for  consumption  in  the  64K 
byte  FAM  scared  memory  board.  Any  buffering  of  data  by  user 
processes  must  be  done  explicitly.  There  is  no  dynamic 
allocation  of  this  resource. 

With  Ftbernet  serving  as  the  intercluster  bus,  with 
eventual  data  transfer  planned,  due  consideration  must  be 
given  to  the  distribution  of  user  processes  within  PTC*. 
Processes  with  a  high  interprocess  communication  rate  should 
he  located  as  close  together  as  possible.  When  this  is  not 
feasible,  a  fairly  high  efficiency  penalty  will  have  to 
be  paid.  The  Ethernet  is  clearly  the  highest  Ipvel  bus  in 
PTC*  and  memory  located  at  a  remote  cluster  must  be  viewed 
as  the  highest  level  memory  ir  the  memory  hierarchy  of  PTC*. 
As  such,  a  nonlocal  memory  access  should  be  avoided  as  much 
as  possible,  but  it  will  never  be  entirely  avoidable. 
Clearly  average  memory  access  timps  will  drop  as  the  iate  of 
local  memory  references  increase.  In  a  distributed  system 
such  as  RTC*,  the  nonlocal  ''hits”  on  memory  should  be  kept 
to  a  minumum.  To  reiterate,  if  high  volume  communicating 
Drocesses  can  possibly  reside  in  the  same  cluster,  then  they 
should  be  so  located. 
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^ .  ETHERNET  "TCESS 


1.  Cluster  Input /put put 

MCOi'TEX  must  provide  a  means  to  transmit  copies  of 
values  of  eventcounts  to  a  remote  cluster.  This  operation 
must  be  entirely  transparent  to  user  processes.  s; nee  they 
have  no  Knowledge  of  their  di st ri but ivity . 

Figure  7  illustrates  an  abstraction  of  the  flow  of 
data  and  control  signals  necessary  to  achieve  a  transmission 
over  Ethernet.  It  embodies  the  principles  of  a  flow  chart, 
as  well  as  an  abstraction  of  processing  modules  and  control 
signals.  Refer  to  Figure  7  for  the  following  discussion. 
The  user  processes  resident  in  either  S3 C  1  or  2  advance  an 
eventcount  through  the  ADVANCE  primitive  operation.  The 
ADVANCE  primitive  makes  a  determination  as  to  the  locality 
of  the  eventcount  and  calls  the  internal  routine  SYSTEMS  10 
only  if  the  eventcount  is  distributed,  i.e.,  a  remote  copy 
is  reeded  at  another  cluster.  The  SYSTFK’SIO  routine  makes  a 
determination  as  to  the  eventcount  communication  path 
(currently  the  only  optin'-  is  Ethernet).  Since  the  path  is 
Ethernet,  the  SYSTEM$I0  routine  writes  an  Ethernet  Hoc 
Packet  (FCP)  to  a  circular  buffer  in  shared  memory,  known 
as  the  Ptherret.  Reouest  Flock  'EPF). 

As  a  shared  resource  among  MCCRTtX  kernels,  ar  EPP 
slot  in  the  F^P  must  be  arbitrated  for.  The  TICKET  mechanis¬ 
ts  employed  ir  SYSTEMSIC,  and  the  circular  buffer  (RRB) 
contains  ERP's  that  must  be  processed.  The  SYSTEMSIO  routine 
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increments  a  system  reserved  eventcount  (FR£$ WRITE)  to 
rotify  the  N 1 3 C7 1 C  Devic°  Driver  and  Parget  Processor  that  an 
FRP  has  been  written.  This  "advancing"  of  Fa3$>'.-ITE  also 
allows  any  othem  kernel  executing  the  SYSTEM$I0  routine  to 
continue  if  it  was  attempting  a  simultaneous  write  to  the 
EBB.  Th°  NI3010  ’'evice  Driver  and  Packet  Processor 

(hereafter  referred  to  as  the  Driver)  is  a  consumer  of  FRp's 
and  also  processes  Ethernet  packets  received  from  other 
clusters.  As  a  consumer  of  FRP's  it  is  a  system  process  of 
a  cyclic  nature  that  is  scheduled  in  the  same  marker  as  user 
■processes.  However,  this  routine  is  dedicated  t,o  high 
density  I/O  o Derations,  and  as  such  is  never  blocked.  In  the 
highly  unlikely  situation  where  there  are  no  FRP's  to 
consume  or  packets  to  receive  and  process,  the  Driver  idles 
in  a  ’busy  wait.'' 

Currently  the  only  type  of  FRP  to  bp  processed  is 
ar  'eventcourt  type',  whose  format,  is  shown  in  Figure  8.  " v,p 
>113010  Driver  decodes  the  FR?  and  based  on  the  information 


Byte  1  Byte  2  Byte  3  Byte  4 

+ - + 

iii  i 

iii  1 

!  Fvertcount  !  Fventcount  !  Value  ! 

!  Type  !  Name  !  ! 

iii  i 

iii  * 

- - - 


Figure  8  Ethernet  Request  Packet  Format 

it  sets  ud  a  transml t-data-bloek  in  shared  memory.  In  fart, 
this  block  is  the  Ethernet  packet,  less  the  64  hit  ^rearrhle 
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and  4-byte  Frame  Check  Seauenre  (FCS).  The  Driver  ther 
initiate?  a  Transmit  t-DKA-Done '  TDD )  operation  to  transfer  the 
block  to  the  transmit  aueue  of  the  MI  30 10.  The  Drivpr 
follows  up  the  TDD  interrupt  with  a  Load  and  Send  commard 
( 29H )  to  the  NI3010  directing  it  to  transmit  the  racket  over 
Ethernet . 

I  n  hour,  d  packets  are  nroressed  by  the  Driver 
through  the  "eceive-Block-Avai  la ble  (  R B A  )  and  hecei ve-TMA- 
Done  (HDD)  operation  seouence  desrihed  in  Charter  3.  The 
Driver  favors  outbound  packets,  to  avoid  the  possibility  of 
a  bottleneck  due  to  a  'clogging  up'  of  the  ERE.  When  it 
does  set  up  for  an  REA  interrupt,  it  will  continue  to  the 
conclusion  of  processing  the  racket  received.  Following  the 
DM of  the  packet  to  the  recei v^-da ta-bl ock  area  in  shai cd 
memory,  the  Driver  decodes  the  data  fields  of  the  racket 
(Figure  9)  and  calls  the  appropriate  MCORTEX  synchronization 
primitives.  The  Driver  continues  to  operate  in  this  manner, 
determinirg  via  an  eventcount  value  (incremented  by 
SYSTFM$I0)  whether  or  not  an  ^RP  exists  ir.  the  FHE  that 
reeds  to  he  processed  and  in  thp  absence  of  on?  receives 
inbound  packet  for  processing. 

The  truly  asynchronous  nature  of  the  Ethernet 
service  should  he  apparent.  Once  SYSTEMSIO  deposits  an  FPP, 
it  returns  immediately  to  the  user  process.  The  user  ^recess 
is  not  held  un  ir  its  execution  due  to  a  transparent  renuest 
for  system  input/output.  The  Ethernet  Request  Packet  is  the 


62 


embodiment  of  the  reouest 


and  in  different  forms  is  massed 


fcetweer  various  clusters  of  RTC*.  It  contains  all  th.p 
information  needed  to  perform  th°  operation  independently  cf 
the  reauesting  process. 

C.  PACKET  POUTING  ALGORITHM 

Thus  far,  all  illustrations  and  discussions  of  '  TC* 
pertained  to  only  two  clusters,  hut  this  should  not  be 
construed  as  a  limitation.  Given  that  more  t.^an  two 
clusters  can  exist  in  RTC*,  some  methodology  must  exist  to 
route  packets  to  as  few  as  ore  and  to  as  many  as  needed  (up 
to  the  maximum  clusters  that  exist). 

The  established  convention  is  that  no  cluster  will  surd 
a  packet  to  itself.  If  an  eventccunt  is  advanced  that 
reauires  a  local  update  and  one  remote  update  (to  o^e 
cluster)  then  only  the  local  copy  will  be  updated  and  only 
the  cluster  that  is  to  receive  the  eveotcount  value  will 
receive  a  packet.  This  clearly  reduces  needless  parget 
ororessing  at  a  cluster  that  has  10  interest  ir.  that 
evertrourt,  i.e.,  there  are  no  producers  or  consumers 
interested  in  its  value.  Therefore  an  algorithm  had  to  be 
dpveloped  that  splectively  eliminated  packets  from  being 
transmitted  to  an  inappropria te  cluster. 

The  NI?Glf  has  an  packet  addressing  mode  known  as  G'-'OUP 
addressing,  whereby  multicast  addresses  can  be  loaded  into  a 
multicast  addross  table  onboard  the  NI3P13.  Provided  this 


table  is  loaded  onor  to  use,  any  packet  received 
that  has  bit  1  of  the  destination  address  field  set  to  one 
(  i  .  ®  .  ,  the  first  byte  is  odd)  is  interpreted  as  a  riult  i  ~as  t 
packet  and  a  lookup  is  done  in  the  table.  If  a  match  of  tha 
destination  address  is  found  in  the  table,  the  packet  is 
loaded  in  the  NI3213's  receive  aueue.  If  the  Driver  (Figure 
7)  enahl^d  an  RBA  interrupt,  the  MI3P1P  will  issue  ar 
interrupt  signifying  that  a  packet  has  been  received  for 
this  cluster.  The  Driver  will  then  process  the  packet 
accordingly  (format  show0  in  Figure  9). 

The  Driver  programs  the  NI3C13  to  accept  GrfOU13  addresses 
in  its  multicast  table,  depending  on  the  distribution  of 
eventcomts  in  PTC*.  The  Driver  (Appendix  K)  has  a  module 
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Figure  9  Even  tenant  Type  Ft  he  met  Packet 

that  reads  the  local  cluster  address  and  grout)  addresses 
from  a  file  called  "ad dr es s . d a t "  .  The  local  cluster  address 
is  used  to  set  ud  the  physical  address  of  the  N 1 3*3 IP*  spp 
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|Sef.  12]  for  details).  Any  packets  on  Ethernet  that  has 
ore  of  the  group  adiross°s  or  the  physical  address  in  the 
destination  field  is  received  and  processed. 

For  packets  to  be  transmitted  over  Ethernet.  only  the 
last  two  bytes  of  the  destination  field  is  program-fable. 
This  minimizes  the  amount  of  data  that  must  be  maintained 
ard  manipulated  for  packet  addressing.  The  '  rem  o  t.  add  r  ' 
field  in  the  ^VFNITCOU'JT  TABLE  in  GLOBAL  memory  contains  t h <■ 
two  bytes. 

Figure  10  contains  an  example  of  a  logical  connection  of 
clusters  (they  are  all  physically  connected  by  Ethernet) 
dependent  on  the  d  i  s  tr  ibuti  vi  t  y  of  the  eventcounts.  The 
linps,  with  numbers  adjacent  to  them,  represent  a 
connectivity  relationship  of  classec  of  data  whose  producers 
and  consumers  synchronize  on  certain  eventcount  values.  The 
vertical  dotted  lines  represent  a  partioning  of  process 
types  and  group  addresses,  shown  below  the  clusters.  The 
number  in  the  cluster  bloc*  is  the  physical  address  of  ea'-'-t 
cluster.  It  can  be  seen  that  a  producer  of  Type  1  data,  a 
consumer  of  Type  2  data,  and  a  consumer  of  Typ°  3  iat.c.  arg¬ 
ali  presert  in  cluster  9.  A  logical  connectivity  exists 
between  all  clusters  as  a  result  of  the  Type  1  data  Type  1 
consumers  exist  at  clusters  1,2,  and  4).  An  advance  by 
nroduc^r  PI  must  cause  a  packet  to  be  sent  to  clusters  1,~, 
and  4 . 
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PI  -  Producer  of  Type  1  Data 
Cl  -  Consumer  of  Type  1  Data 

Figure  10  Ethernet  Packet  Routing 
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Consider  the  logical  connectivity  o  ^  a  certain 
°ver  tcc.irt  to  b°  represented  by  a  binary  rr,e  at  each 
cluster  it  corrects.  Therefore,  for  the  Tyne  1  events ou nt 
the  4  cluster  connectivity  would  result  in  1111  bas«-2  or  fF 
base-16.  P y  performing  an  exclnsive-or  oufration  on  ;*FP 
with  the  producer's  own  physical  address  '  ftS  base-16,  in 
this  case)  a  result  of  ftftV  7,J  would  be  formed,  Since 
consumers  at  clusters  1,2,  and  4  are  interested  in  Type  1 
data,  the  1I30lv*  Driver  must  program  ft  VP  7?.  ir.to  the 
multicast  table.  In  reality  the  address  'Aft-,* V; 

6  bytes  in  length,  first,  byte  b°ing  odd)  would  appear  as  an 
entry  in  the  table. 

Continuing  with  this  example,  consider  the  Tvne  4 
connectivity.  The  binary  connectivity  is  bill  ana  by 
performing  an  exclusive-or  with  the  value  BviPlH  (address  of 
cluster  1,  where  the  producer  is  present)  results  in 
The  NT 30 12  at  clusters  2  ana  4  must  have  <tf3-0C  -tffl-'JP-flO-tfO 
in  the  multicast,  table.  /'ll  other  values  shown  in  Figure  If" 
are  derived  in  an  analagoun  manner. 

Th°  r  em  o  t,  o  <  ad  i  er  field  of  an  ?v  er,  tcoun  t  certains  the 
bins  ’*;/  connectivity  discussed  above.  The  ADVA'TK  procedure 
of  h'CO'.TFX  ■’ak’f’s  a  test  to  see  if  the  remote$addr  field  is 
eouivalent  to  the  "localScluster^addr"  'as  defined  by  the 
DFFT  h'FSCLUSTER  primitive).  If  they  are  the  sa^e  tner, 
SYSTEMIC  is  not  called  and  intra  cluster  processing 
continues.  If  they  are  not.  eouivalent,  then  an  exclusive-or 
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VI.  CONCLUSIONS 

The  principal  goals  of  this  thesis  were  achieved.  The 
modifications  to  the  previous  version  of  KCOhTEX,  to  allow 
the  distribution  of  processes  over  a  high  speed  intercluster 
ous,  were  developed  and  appropriately  tested.  Eventccurt 
values  are  currently  the  only  entities  that  are  transferred 
in  packet  form  ov»:t  Ethernet.  However,  the  framework  to 
easily  extend  the  d is  t .r i bu t i v i t y  of  other  entities  is 
es  ta  bl i shed  . 

From  the  viewpoint  of  user  processes,  access  to 
Ethernet  is  rained  in  an  entirely  transparent  manner.  This 
access  is  truly  asynchronous  in  the  sense  that  a  return  to 
the  recuestirg  nrocess  occurs  when  an  Ethernet  Keenest 
Packet  is  written  to  shared  memory,  not  when  actual  output 
of  the  information  occurs.  Provided  the  N 1 301 2  Driver  and 
Packet  Processor  keeps  up  with  the  I/O  rat®,  a  bottleneck 
will  not  result.  The  dedication  of  tne  Driver  to  its  own 
real  processor  assures  this. 

The  Driver  software  naeded  to  distribute  PCOt.TrX  cvnr 
rthernet  is  device-dependent.  however  '■'CORTEX  only 
interfaces  with  this  routine  through  the  corvenipr.  t 
abstraction  of  an  Fthernet  Reauest  Packet.  Any  changes  in 
the  Driver  will  not  cause  an  undesirable  ripple  effect  of 
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creation  of  tve  IPLF  ard  INI?  processes  'also  N,XNITOr' 


vi  th 


/XTaACF '  ♦  and  the  user  initialization  process  is  then 
ert.ered.  Oi;e-atior  after  this  point  is  determined  ry  t e 
user  processes. 


•CORE.  TEC  and  MCOPTFX  or  MXTRAOF  respectively.  When  this 
general  i  za  t  i  or.  does  net  hold,  the  differences  will  be  noted. 

2.  Q£?E§tion  of  the  UCOETFX  loader 

MCORTFX.CMD  is  an  executable  file  under  the  CP/M-86 
operating  system.  Invoking  MgORTFX  without  KORF.OPS  on  the 
default  drive  results  in  an  error  message  ar.d  an  abrupt 
return  to  CP/M-S6.  MXTRACF  reamres  KORF.TRC.  Loe  loader 
announces  that  it  is  or.  line,  and  provides  a  prompt  to  query 
the  interactive  user  whether  or  not  GLOBAL  memory  should  te 
loaded.  Only  the  first  processor  activated  should  load 
GLOBAL  memory.  Subse-auent  loads  of  GLOBAL  memory  will 
destroy  data  needed  by  executing  processors.  If  no  initial 
load  of  GLOBAL  memory  is  made  the  results  are  undefined. 

KORF  is  immediately  loaded  with  or  without  GLOBAL 
memory  as  directed.  The  load  is  accomplished  using  CP/M-^e; 
functions,  but  does  not  use  the  CMP  load  utility.  Instead, 
KORF  is  read  in  and  positioned  block  at  a  time  as  required. 
KORF  load  is  followed  by  a  request  for  a  process  file  nai>i<\ 
The  loader  experts  one  file  name  to  be  entered,  and  r°sults 
are  u n pred i r t a b 1 °  if  a  f i lename . f i 1 e type  dons  n^t  precede 
a  Bey board  <PFTUPN1.  User  processes  are  loaded  using  th° 
CP/^-yP  "MT  load  utility,  and  u=.er  processes  must  be  CMF 
files.  The  entire  file  n  amQ  must,  be  entered  including  the 
three  letter  extension  nr  filetvp<=  (.CMD.  After  loading 
the  user  file,  the  loader  passes  control  to  ■“'CORTEX. 
'“'CORTEX  i  r.  i  t  i  a  1  i  za  t  i  or  s  are  performed  within  KO  ,  including 
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^CCoT~X  LOJTFx 


F  . 

1.  The  Loader 

Prior  to  Rowe's  [3ef.  6l  work  the  MCORTEX  e«pcutivo 
was  assigned  to  the  file  KORE  and  was  accessible  only 
through  utilities  in  the  INTELL^C  MDS  system.  This  file 
contained  all  the  multiprocessor  operating  system  functions, 
the  initial  GT.OPiL  memory,  the  supervisor,  the  interruDt 
vector,  and  various  low  level  functions  not  accessible  to 
the  user.  To  execute  MCORTEX  it  was  necessary  to  download 
KORE  ar.d  user  processes  to  the  target  system,  disconnect  the 
transfer  cable,  connect  the  target  system  terminals,  and 
pass  control  to  KORE  on  each  processor.  See 
[Ref.  5:  Appendix  A,  3]  for  a  complete  description  of  the 
process  . 

The  KOPF.OPS  and  KORF.TPO  files,  now  loadable  under 
CP/m-SS  through  the  MCORTEX  and  MXTRACE  loaders,  are  derived 
from  KORE.  KORE. OPS  provides  no  system  diagnostics,  whereas 
KORE.TRC  Drovides  CRT  output  to  indicate  the  entry  into 
^CO-TEX  primitives.  It  is  expected  that  during  the  software 
development  ohases,  KORF.ThC  will  be  used  tn  facilitate 
debugging.  In  some  circumstances  this  may  not  be  feasible 
due  to  the  reduced  speed  of  execution  as  a  result  of  the  I/O 
overhea  d . 

Appendix  A  details  the  procedure  used  to  produce 
FORE. OPS  and  KORE.TRC  from  KO'^E.  Further  discussion  will 
use  the  tprms  K0RE’  and  M-CORTEX  to  mean  either  KORE. OPS  or 
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GATFMOD  and  GATFTRC  both  act  as  translators  of  user 
calls  into  formats  reauired  by  the  MCO.RTEX  and  MXT'-ACF 
supervisors  respectively.  The  only  difference  in  the  two 
gate  nodules  is  the  address  of  GATE$KEEPER  in  their 
associated  KO:;Fs.  As  assembly  language  routines  called  ty 
PL/I-S6  MCCRTSX  processes,  GAT EMOP  or  GATETH C  use  the 
established  parameter  passing  conventions  (PL/I-b6  to  ASM86) 
to  build  the  stack  structure  expected  by  th<“  supervisor 
module  '  t>L/'>'-Q6  format),  supplying  function  codes  and 
oaddir.g  when  reouired.  A  call  is  then  made  to  GATESKEEPER . 
If  the  call  is  to  PEA D  or  TICKET,  space  is  reserved  on  the 
stack  for  the  returned  value.  This  value  is  popped  into  the 
FX  register  (PI /I -86  convention)  before  exiting  to  the 
calling  ^recess  . 

KOPE  functions  do  not  guarantee  the  integrity  of 
the  ES  register.  PL/I-86  in  OPTIONS  (MAIN)  initializations, 
however,  establishes  the  ES ,  SS,  and  PS  registers  to  be  of 
equal  value,  and  some  runtime  routines  expect  this 
relationship  te  be  maintained.  Th°  gate  modules  push  the  FS 
register  onto  the  stack  on  entry,  and  pop  it  before  return 
to  the  callirg  routine,  thus  preserving  its  precall  value. 
Entirely  transparent  to  user  processes,  the  FS  register 
valu°  is  preserved  throughout  MCOhTEX  calls. 


''Maine!  by  adding  its  size  to  the  SP  of  the  previous 
ororess .  The  system  stack  can  be  divided  as  necessary  ty 
continuing  in  this  manner.  The  total  number  of  bytes 
occupied  by  MCORTEX  nrocess  stacks  should  not  exceed  the 
number  of  bytes  provided  by  PL/I-86  for  the  system  stack. 

The  MAP  file  also  contains  maps  of  the  individual 
modules  linked  into  the  CMD  file.  These  maps  provide  data 
about  locations  of  code  and  data  segments  within  the  larger 
code  and  data  segments  summarized  in  the  segments  section. 
The  beginning  address  of  each  module  is  given.  This  offset 
represents  the  IP  value  for  that  particular  module. 

With  all  parameter  values  determined,  the 
initialization  process  must  be  recompiled,  and  all  processes 
relinked.  The  resulting  CMD  file  can  be  executed  in  the 
MCORTEX  environment. 

2.  Gate  Module 

GATEMOT . OBJ  (or  GATETRC . 03J )  must  be  linked  with 
all  user  processes.  It.  provides  the  object  code  necessary 
to  convert  user  calls  to  the  format  expected  by  the 
suuervisor,  including  addition  of  function  codes,  and 
padding  of  calls  with  extraneous  parameters.  GATEMOD  uses 
no  variable  data  segment  of  its  own,  and  simply  makes  moves 
from  user  data  areas  to  the  user  stack.  This  ensures  that, 
so  long  as  the  user  data  areas  involved  are  unshared, 
GATFMOD  is  reentrant. 


The  CKE*TE_PP:OC  procedure  has  eight  actual 
oaraneters.  The  first  two  are  process  identif  icat  i  on  and 
process  priority.  These  are  BIT (8)  values  assigned  by  t r. 
software  developer,  with  due  consideration  river,  to  the 
module's  function.  Four  other  oaraneters,  the  CS,  DS  ,  SS  , 
and  ES  register  values  can  be  determined  by  performing  ar. 
executable  load  cf  the  process  CMP  file  under  DTT86.  Values 
displayed  by  DDT86  include  the  CS,  and  DS  register  values. 
As  mentioned  earlier,  it  is  required  that  thp  DS  ,  SS  ,  and  SS 
register  values  be  eaual  for  proper  operation  of  some  PL/I- 
85  runtime  routines.  Except  under  carefully  considered 
ci rcums tances ,  this  should  be  the  case.  The  remaining  two 
parameters  are  pointer  values  obtainable  from  the  licit  MAP 
file  . 

The  first  section  of  the  MAP  file  gives  a  summary 
of  all  code  and  data  segments  inrluded  in  the  associated  CMD 
file.  Several  data  segments  are  listed  in  order  of  their 

occurrence  in  memory,  from  lowest  offset  to  highest  offset. 
The  »*arge  of  the  last  entry  gives  the  last  address  offset 
occupied  by  any  data  segment.  Higher  address  cffvts  still 
within  the  memory  space  of  this  CMD  file  are  assigned  to 
stack:  and  free  space  structures  by  PL/ 1 -86,  with  the  system 
stack  preceding  free  space.  The  SP  value  reauired  by  the 

CPE*TF_PPOC  function  can  be  obtained  by  adding  the  size  of 

the  stack  required  to  the  last  offset  occupied  by  data.  If 

another  MCOFTFX  process  stack  is  required,  its  SP  can  be 
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r ABLE  2  -  MAP  FILE 


Map  for  file:  C2US S .  C  MD 
Seen eats 


Le  r.^th 

S  tar  t  Stop 

A  1 1 

Com  b 

Name 

C  lass 

272D 

' 0000 : 0005-2731 ) 

?  YTE 

PUB 

CODE 

CODE 

05OF 

( 0000 :0100-060D ) 

'*  0  7  D 

?UP 

DATA 

DATA. 

00  21 

( 0000 ; 06PF-0  62E ) 

WORD 

COM 

7C0NSP 

D  :T  A 

0013 

(0000:0630-0642) 

WORD 

COM 

?FP?STK 

DATA 

0e-2F 

( 0200 : 0644-0671 ) 

WORD 

COM 

7FPB 

p  a 

2.?  02 

( 0000 : 0672-0 673 ) 

WORD 

COM 

7CNCCL 

DATA 

0009 

1  0000 :0574-067C ) 

WORD 

COM 

7FILAT 

D  A  TA 

00  03 

(  2  ?  O  0 : 0 67 E - 068 5  ) 

WORD 

COM 

7FMTS 

D  'TA 

001 E 

( 2000 : 0686-06  A 0  ) 

WORD 

COM 

7FBUFF 

DATA 

0003 

( 2300 :06A2-06A4 ) 

WORD 

COM 

7  OM  COD 

DATA 

0025 

(0000 : 06 A 6—06 C  A ) 

WORD 

COM 

S  YS  IK 

p  A  T4 

0023 

(  2200 :25CC-06E3 ) 

WORD 

COM 

SYSPRINT 

DATA 

Groups 

Seamen  ts 

CG  ROUP 

CODE 

DGROUP 

DATA 

700NSP 

7FPBSTK 

7  EPB 

7CNCOL 

7 FI  LA T 

7FMTS 

7SBUFF 

70NCOD 

SYS  IN 

SYSPRINT 

map  for  nodule:  C2_USERS_INIT 

0024  ( eM'V\?r'?b-??ZQ)  COpE 

0037  (  000  0  :  0 100-0136  )  DA  TA 


nap  for  nodule:  MSLCRDER 

00B6  ( ?002:0029-00DD)  COPE 

203B  (0000:0136-0172)  DATA 

nap  for  nodule:  TRKRPRT 

002B  (0000  :00DF-0108)  CODE 

0012  (0000:0174-0185)  DATA 

map  for  module:  GATEM/T 

0103  (0000:0109-020?)  CODE 

0004  ( 0000 :0186-018Q)  DATA 


7  4 


k.--- 
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user  urocess  executed,  and  i  used  to  create  user  processes 
'■'Ply.  ■'  syston"  process  written  in  PL/I-oP  oar.  i)Sp  its 
in  t.  ial  iza  1 1  on  nodule  to  create  event coun t s  ,  sequencers,  as 
well  as  creating  itself.  After  all  initializations  are 
performed,  an  AWAIT ( 'VE'B4 , 'PKPl '84  )  should  t>e  executed. 
This  puts  all  initialization  processes  on  a  common  reserved 
event  count  thread.  An  APV ANTS ;  'FE  'E4 )  by  any  process  will 
return  all  processors  to  CP/P-36  '•ontrol  (  or  ov  i  d  i  rg  CP/P-Pr 
is  resident  1  oca  1  ly  ) . 

PCOPTEX  processes  are  written  as  pa  rameterless 
PL/I-86  orocedures.  Execution  cf  CREATE_?ROC  functions  in 
the  initialization  nodule  establisnes  a  virtual  processor 
for  eac>>  process,  and  sets  all  process  states  to  ready.  The 
AWAIT  call  at  the  end  of  i r i t ia 1 i za t i o ns  forces  a  scheduling 
to  take  place.  The  highest  priority  virtual  processor  will 
be  granted  access  to  the  real  processor.  Further  scheduling 
is  dynamically  dependent  on  the  use  of  MCOPTEX  synchronizing 
primitives  by  user  processes. 

Parameters  required  by  the  CiEATE_?iOC  function 
include  values  unknown  to  the  programmer  until  after  all 
processes  have  been  compiled  and  linked.  This  requires  that 
dummy  values  be  provided  for  the  first  compilation  and 
linking.  Links  are  pel  formed  with  the  ("LAP  command  option 
selected,  since  this  provides  informa  tion  required  to  define 
user  processes.  A  partial  PAP  print  out  for  a  demonstration 
process  (full  discussion  in  Appendix  E)  is  shown  in  Table  P. 
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themselves  at  'convenient,'  points  ir.  their  execution  (with 
the  A.\aI?  primitive),  this  lark  of  rppntrar,c.7  is  not  a 
p  r  obi  .  In  previous  versions  of  MOOT  TEX .  with  the 
preemptive  interrupt  4  to  signify  that  a  process  has  been 
readied  by  an  offboard  operation,  the  interrupt  could  easily 
"catch"  two  multiplexed  nrocesses  using  the  same  non- 
reentrant  runtime  routine  or  utility.  The  change  in 
scheduling  philosophy,  as  discussed  ir  the  SOFTWARE  SERVICES 
section  of  Chapter  3,  reduces  this  "window  of 

vulnerability."  If  a  process  is  scheduled,  via  a  ?•  EEMPT 

operation  'which  still  uses  interrupt  4),  behind  a  process 
that  was  blocked  and  using  the  same  runtime  routine  or 
utility,  the  originally  scheduled  process's  execution  state 
could  be  catastrophically  altered.  This  ty^e  of  situation 
can  be  avoided  through  a  careful  distribution  >f  user 

processus.  That  is,  don't  allow  a  process  that  may  to 

readied  via  a  PREEMPT  operation  to  he  "n  1 1.  i  ol  e  jr®d  with  a 

process  that  mi^ht  possibly  us®  *h°  sap"  utilities  ^r  °E/I 

runtime  routines.  If  this  cannot  i  avoiioi  ,  toe  only 
remaining  alternative  is  t  ^  write  *  ►  r  snared  rm.-’e  as 

reentrant  procedures .  It  is  anticipated  that  future  Tigital 
Fesearch,  Ir.r.  language  con  pi  lers  and  CP/M — t'  operating 
system  functions  will  address  and  resolve  this  lack  of 

reentrancy.  For  mow,  it  remains  a  problem. 

MCCRTEX  currently  exports  an  initialization  module 
to  re  located  starting  at  343931! . 
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This  modulo  is  the  first 


allow  user  nrocesses  to  access  s ha  red  memory  outside  the 
64"  byte  range),  without  resorting  to  assembly  language  code 
to  effect  data  moves.  The  AFSOLUTE  feature  of  I.IMK-86  [Ref. 
18]  provides  such  an  alterr.at  i  ve .  The  DS  register  can  be 
assigned  a  value  (by  using  DATA  [ABS[v]],  where  v 
represents  the  value)  sufficiently  high  to  allow  an  offset 
to  be  added  to  it  at  runtime,  forcing  a  physical  addr0s^ 
in  the  range  10000K  -  1EFFFH  first  segment  shared  memory). 
This  accomplishes  the  desired  effect.  It  is  precisely  this 
technique  that  is  used  in  the  N 1 30 1  ft  Driver.  The  Driver  was 
linked  with  a  value  cf.  0800H  in  the  LINE  option  file,  ard 
when  addei  to  an  offset  of  8P00H  allowed  access  to  a  oas°d 
array  structure  called  FRF  (Ethernet  Reauest  Flock).  Mote 
that  0800:800r  is  the  same  as  1000:0,  but  the  first  logical 
address  permits  local  data  to  reside  in  local  memory  and 
shared  data  in  the  first  segment.  User  processes  can  use 
this  same  technique  for  interprocess  cornmunica  t  i  on  . 

MTCRTEX  processes  that  are  multiplexed 
'  mul  t,  i  or  og  rammed  )  on  ore  real  processor  must  be  linked  into 
a  single  C'dD  module.  Mij  1 1  i  ur  ogrammed  processes  may  share 
common  PL/I -86  runtime  routines  as  well  as  CP/^-b6 
utilities.  However,  this  sharing  of  runtime  routines  ard 
utilities  presents  a  problem.  Careful  examination  of  the 
machine  code  cf  the  runtime  procedures  and  utilities 
revealed  the  fact  that  they  are  not  reentrant  routines. 
Under  r’0rrrlal  circumstances,  since  processes  only  block 


One  such  mechanism  is  the  file  GATEWAY. PLI,  as  referred  to 
by  ^cw0,  ard  now  known  as  the  SYSDFE.PLI  'for  Systr-n 
definitions)  file.  This  file  must  be  included  in  all 
programs  fusing  the  PL  f\  ?, INCLUDE  directive)  making  calls  on 
MCORTEX  functions.  The  change  in  filename  was  introduced 
as  a  result  of  this  file's  multifunction  role.  In  addition 
to  declaring  the  MCORTEX  functions  as  ENTRY  values  with 
attribute  lists,  the  file  also  contains  the  symbolic  names 
of  even  tcount.  s ,  seanencers,  and  pointers  for  shared  data 
structures.  This  adds  a  level  cf  security  not  present  in 
previous  versions  of  MCORTEX.  The  misspelling  of  a  symbolic 
name  will  be  caught  by  the  compiler  as  the  use  of  an 
undeclared  variable. 

An  example  of  the  use  of  pointers  to  access  a  data 
structure  in  shared  memory  is  provided  by  the  NI301?  Device 
Driver  and  Packet  Processor.  This  routine  performs  an  UNSPEC 
function  (described  in  [Pef.  IT  p.  Till)  call  to  absolutely 
locate  the  Ethernet  Reauest  Block  structure  so  that  it  can 
consume  Ethernet  Reauest  Packets  generated  by  KOBE'S 
SYSTEM*  10;  routine.  The  value  appearing  on  the  n.chthani  side 
rf  the  UNSPFf  assignment  statement  is  a  symbolic  name 
defined  in  the  SYSD^F.PLI  file.  Proper  static  management  of 
shared  memory,  with  symbolic  assignments,  assures  the 
integrity  of  user  data. 

Due  to  the  limitation  of  pointer  variables  to 
sixteen  hits  in  PL/I-P^,  some  method  had  to  be  devised  to 


V.  PROCESS  DEVfLOPMFNT’  M-'p  THE  NCOhTFX  LOAD  EE 

A.  PROCESS  DEVELOPMENT 

1.  PL/I-86  User  Processes 

Rowe  [Pef.  61  is  responsible  for  the  integration  of 
■•’CORTEX  into  the  CP/M-86  environment.  Although  his 
discussion  of  PL/l-96  user  process  development  is  more  tnan 
adeouate,  enough  changes  have  been  made  to  warrant  another 
di scuss i on . 

Procedures  written  i  r.  PL/I-86  become  MCOTTEX 
processes  through  execution  of  CRFATF._PROC  functions. 
MCPRTEX  processes,  though  written,  compiled,  ard  linked  as 
PL/I-86  Drocedures,  are  distinct  processes.  Each  reauires 
the  state  of  the  processor  to  be  prepared  by  the  MCOi TFX 
executive  Drior  to  every  entry  into  the  process.  This  is 
accomplished  transparently  when  making  MCOPTEX  function 
calls.  User -defined  or  built-in  PL/I- 66  procedures  in  a 
MCOpTFX  process  can  he  accessed  from  within  the  process 
nornally,  however,  a  M COR TFX  process  must  be  entered  through 
a  f-C DF TFX  function  call. 

KOpE  is  the  name  assigned  to  the  kernel  of  MCOhTEX 
and  is  written  in  PL/M-96,  and  it  is  necessary  for  calls  to 
the  supervisor  to  meet  PL/M-86  parameter  passing 
conventions.  Rowe  [Ref.  6]  provided  mechanisms  to  resolve 
differences  between  simple  user  calls  and  supervisor  calls. 
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operation  is  performed  cr  thra  remote$addr  field 
'  re~>o  te$addr  XOP  1  ora  1  S  cl  ’’s  t  er  S  ad  d  r  )  and  the  resultart.  two 
bytp  value  and  appropriate  eventcount  information  is 
written  to  an  FRP.  The  NI.331?1  Driver  dequeues  the  5 R P  ard 
forms  the  appropriate  packet  format  (Figure  9),  initiates 
the  DM4  operation  to  the  M13710.  and  issues  the  Loai  and 
Send  opera  t io  n  . 


68 


charges  i  r.  thp  operating  system  code.  This  integration  of 
harware  and  software  is  easily  modified  and  extensible. 

The  creation  of  eventcounts  and  sequencers  in  the 
initialization  module  of  a  carefully  tested  system  process 
provide  a  level  of  security  not  present  Defore.  This 
security  is  further  enhanced  by  expanding  the  role  of  the 
SYSDFF.PLI  file  that  is  included  in  each  MCOP.TFX  process.  By 
convention  the  user  processes  cannot  alter  the  constant 
definitions  present  in  SYSDFF.  The  user  processes  are  not 
hostile  anyway,  but  it  will  clearly  not  be  to  their 
advantage  to  alter  this  file.  The  assigning  of  pointers  for 
shared  structures  further  elevates  the  level  of  security. 

The  N 1 301 0  Device  Driver  and  Packet  Processor  is  a  basic 
'■''CORTEX  system  process  that  is  highly  modular,  virtually 
self-document  ing,  and  extensible  in  nature.  Fy  modifying 
this  code  and  the  supporting  code  in  MCORTEX,  the 
distribution  of  other  entities  can  be  achieved.  The 
distribution  of  seauencers  is  a  nontrivial  matter  ard 
careful  consideration  must  be  given  to  the  speed  at  which  a 
ticket  value  i.  returned  to  the  reou°sting  cluster.  Ethernet 
packets  will  unavoidably  be  aueoed  up  in  N 13010  input 
buffers,  ani  the  speed  in  which  they  would  be  processea  cy 
the  current  Driver  is  fixed.  A  sequencer-type  packet  ,  not 
recognized  by  the  current  driver)  would  b  _•  processed 
immediately  by  the  Driver,  i.e.,  a  value  would  be  returned 
from  the  GLOBAL  data  of  the  cluster  responsible  for  the 


shared  resource,  and  an  Ethernet  packet  would  be  sent  cut 
i  mm ° d  i  a  t  e  1  y  . 

The  distribution  of  user  shared  data  could  similarly  be 
achieved,  with  the  buffering  of  data  in  the  shared  memory  cf 
each  cluster.  The  synchronization  on  successive  interations 
of  data  would  be  realized  in  the  same  manner  as  previously 
discussed. 

The  issue  of  packet  security  is  a  crucial  one.  The 
inherently  reliable  Ethernet  is  adeauate  in  most  instances, 
but  a  one  bit  error  in  (10  **  £ )  to  (10  **  11)  bits  could  be 
catastrophic  enough  when  it  occurs,  so  that  an 
"acknowledging  Ethernet"  may  have  to  be  developed.  Enough 
adeauate  testing  has  not  been  conducted  in  the  AEGIS 
Simulation  Laboratory  to  draw  any  conclusions  in  this  area. 

The  lack  of  reentrancy  in  runtime  code  and  CP/M-B6 
utilities  is  an  issue  that  needs  to  be  more  actively 
addressed.  A  'LARGE'  PL/I-S6  compiler  is  under  development 
by  Digital  Research,  Inc.  that  should  resolve  the  reentrancy 
problem  ard  fhe  limited  range  (64K  bytes)  of  pointer 
variables.  This  product  should  be  available  in  January  19Ht. 
In  addition  to  solving  the  a f oremen t i o ned  problems,  the 
"LAPGE"  compiler  will  also  sever  the  umbilical  cord  between 
the  ISIS-II  and  CP/M-86  operating  systems.  MCOnTEX 
development  can  then  continue  in  PL/I -8 6  instead  of 
PL/'d-96.  MCCTTEX  will  then  evolve  rapidly  and  consistently 
with  increasingly  more  complex-user  processes. 
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ISIS-II  TC  CP/K-96  TRANSFER 
I.  PRE-POW  FR-ON  CHECKS 

“.  SBC  configured  for  CP/M-86  cold  boot  is  in  MULTIBUS 
odd  slot  and  no  other  clock  master  SBC  is  instailei. 

B.  REMEX  controller  is  in  MULTIBUS,  and  properly 

connected  to  REMEX  drive. 

C.  If  MICROPOLIS  hard  disk  is  to  be  used,  ensure  that 
it  is  connected  to  clocjc  master  SBC. 

D.  Ensure  32K  shared  memory  module  is  installed. 

E.  Connect  RS2.32  transfer  cable  between  J2  on  SBC,  and 
24C0  baud  CRT  port  of  the  MD3  system.  If  this  caole  has  a 
’null  modem’  switch  on  it.  set  it  to  "null  modem".  This 
transposes  wires  2  and  3.  The  switch  may  be  marked 
"computer  to  computer"  and  "computer  to  terminal". 
Set  to  ’computer  to  computer". 

F.  Connect  any  CRT  to  the  9600  baud  TTY  port  of  tne  MLS 
system.  Ensure  CRT  is  set  to  9602  baud. 

G .  A  CRT  will  be  connected  to  the  SBC  after  the  loading 
is  completed,  and  should  have  an  RS232  cable  nooked  to  the 
serial  Dort.  The  CRT  connection  should  lead  to  a  flat  2b 
wire  ribbon  and  J2  connector  so  it  can  eventually  be  hooded 
to  the  SPC's  serial  port. 
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II.  POW  Fc  ( ■  N  PROCEDURES 

A.  Turn  the  power-on  key  to  ON  position  at  MULTIBUS 
fra  Tie . 

B.  Press  RES  FT  near  power-on  key. 

C.  If  needed  apply  power  to  MICROPOLIS  hard  disk. 

D.  *pply  power  to  RFMFX  disk  system.  After  system 
settles,  put  ST.ART/STOP  switch  in  START  position.  Following 
a  lengthy  time-out  period,  the  READY  light  on  the  front  of 
the  RrMEX  disk  system  will  illuminate,  and  the  system  is 
ready. 

F.  Insert  the  boot  disk  into  drive  R. 

F.  Apply  power  to  the  CRT. 

(J .  Power  un  the  MDS  disk  drive. 

F.  Power  up  the  MDS  terminal. 

I.  Turn  power-on  key  to  ON  at  MDS  CPU. 

II  I.  BOOT  UP  MDS 

A.  Place  diskette  with  executable  modules  ard  SPCE61  in 
i  r  i  v  e  0  . 

B.  Push  upper  part  of  boot  switch  ir  (It  will  r°"ain  in 
that  position  ) . 

C.  Press  reset  switch  and  then  release  it. 

D.  Wher  the  interrupt  light  #2  lights  on  the  front 
panel,  press  spac^  bar  on  the  console  device. 

F.  Reset  the  boot  switch  by  pushing  the  lower  part  of 


the  switch. 


F.  1 3 1 5  —  I T  will  announce  itself  ar.i  r’ive  the 
uron pt . 

IV.  L0*D  KOI 7 

A.  At  console,  type  ’SBC861<CR '  ’  . 

B.  IF  "^CONTROL*"  appears,  SBC  was  not  able  to  set  its 
band  rate.  Press  RESET  on  MULTIBUS  frame  and  try  attain . 

C.  If  ’Pad  EMDS  connection'  appears,  you  w i l 1  not  re 
able  to  continue.  Check  correctors.  Make  sure  diskette  is 
not  write  protected.  Push  RESET  at  frame.  Try  a*?ain. 

D.  STRC361  will  announce  itself  and  prompt  with  ’  .  . 

E .  Type  'l  KORE<cr>’.  Wait  for  At  this  point  tine 

KOBE  module  has  been  loaded  into  the  SBC  memory,  ar:d  into 
the  common  memory  board. 

V.  SAVING  KO  ’F  TO  CP/M-86  FIL^ 

A.  Leaving  the  SBC861  process  active  on  the  MDS  system, 
disconnect  the  FS232  J2  connector  at  the  SBC,  and  connect 
the  terminal  oreoared  earlier. 

B.  At  the  newly  connected  terminal  type  "GFFD4  :4<.c  r  • '  . 
The  CRT  will  not  echo  this  entry.  Respond  to  the  cues  that 
follow  as  required  until  CP/M-86  is  up. 

C.  Now  “nt°r  DDT96.  At  this  point  KOBE,  CP/M-36,  and 
I)DT°6  all  are  resident  in  the  SBC  memory  and  in  the  32K 
shared  memory  board. 

D.  (Jsine  CDT86  commands,  reposition  the  parts  of  KOBE 


required  so  that  the  role  ran  be  saved  into  one  file. 
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necessary  to  determine  the  initial  locations  of  the  cole  is 
found  in  K0?;F.HD2.  The  instructions  used  for  the 

current  KORF. OPS  and  KORF.TRC  files  follows: 

***  KOhF.FPS  *** 

MB70 : 0 , 1000 . 480  : 0  Hove,  starting  at  address  B0’  :  0  , 

1000  bytes  of  code  (main  part  of  KORF)  to  new  start  address 
480 : 0 . 

H43? :0 , 80 , 5°0 : 0  ***  Hove,  starting  at  address  439:2,  8° 

bytes  of  code  (  ini t  la li 7a ti or  module)  to  new  start  address 
580:0  (following  main  part  as  moved  above). 

HF530  :0  ,800 ,588:0  * *  Hove,  starting  at  address  F530:0, 

800  bytes  of  rode  (GLOB8L  memory)  to  new  start  address  588:0 
'following  initialization  module). 

WKOPF. OPS  ,480:0,1880  #**  Write  to  the  default  disk  a 

file  called  KORF. OPS  starting  at  address  480:0  and 
containing  1880  bytes. 

KORF.TRC  *-"■'* 

HAC0:0, 1C00,480:0  ***  Hove,  starting  at  aidress  '-C0:0, 

1000  bytes  of  code  (main  nart  of  KORF)  to  new  starting 
address  480  :0  . 

H439  : 0 , 8 17 , 6U.0  : 0  ***  Hove,  starting  at  address  139:0,  ;-F 

bytes  of  code  ( i ni 1 1  a ] i za t i on  module)  to  new  starting 
address  610:0  (following  main  part  of  KORF.)  . 

ME530 : 0 , 800 . 64 9 : 0  ***  Hove,  starting  at  address  £530:0, 

800  bytes  of  code  (GLOBAL  memory)  to  new  starting  address 
648:0  (following  main  KORF  F  in  i  t.  i  al  ia  z  t.  i  on  module). 
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WKORF.TRC  ,4£0:0 ,2483  ***  Write  to  the  default  disk  a 
file  called  KOI  F.TRC  s  tart  i  nr  at  address  430:0  and 
containing  'c'A 30  bytes. 

MC T E :  The  main  KCRE  module,  the  initialization  module, 
and  010EAL  memory  are  located  to  seoarate  parts  of  the  SET 
by  the  MCORTFX  loader.  The  system  used  requires  that  these 
modules  be  saved  into  the  file  in  12R  byte  blocks.  Further, 
any  change  in  the  number  of  1?3  byte  blocks  occupied  by  each 
must  be  reflected  in  the  ’dCORT'tX  loader  code. 
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DE^UG!}TNr,  TECHNIQUES 

DDT96  [Ref.  13]  is  the  primary  debugging  tool  used  in 
software  product  development  in  the  sEGr->  Simulation 
Laboratory.  This  debugger  allows  the  user  to  test  and  detug 
programs  interactively  in  a  CP/bi-86  environmpnt.  Far  fr"m 
being  a  high  level  debugging  tool,  DDT86  nevertheless 
provides  the  user  with  the  ability  to  interactively  enter 
assembly  language  statements,  display  the  contents  of 
memory.  tracp  program  execution,  and  utilize  oth^r  commands 
to  provide  software  develoDment  assistance. 

The  use  of  PDTflfi  in  the  development  of  the  N13Q1C  Device 
Driver  and  Packet  Processor  was  invaluable.  Ethernet  Reauest 
Packets  could  be  interactively  written  to  shared  memory  and 
the  response  of  the  Driver  was  easily  monitored  from  th° 
same  terminal.  Breakpoints  car  be  set  in  processes  and  the 
execution  of  a  single  board  commuter  will  continue  until  thp- 
treak  point  is  reached.  A  process  can  Mock  and  wiser' 
scheduled  next,  by  a  kern°l  of  PCORTEX,  the  CPU  will  break 
at  the  setpoint. 

A  particularly  valuable  feature,  that  unfortunately  is 
unavailable  In  DDT96  ,  is  that  of  a  watchpoint .  A  watchpoint 
is  defined  here  as  a  location  that  a  debugger  would  monitor 
and  inform  the  user  when  an  executing  program  nas  made  an 
attempt  to  execute  an  instruction  at  that  location.  This 
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feature  can  be  emulated  under  ED?P6  by  using  tne  "a  command 
(enter  assembly  language  statements)  to  enter  an  IMT  Z 
; interrupt  3)  command.  What  the  user  does  not  get,  however, 
is  a  history  of  the  instructions  that  got  the  CPU  to  tnis 


execution 

point. 

In  a 

single  step  trace 

this 

i  s 

not  a 

problem , 

but  execution 

at  near  real-time 

i  s  . 

In 

h i ghly 

modular 

software. 

such 

as  MCCRTEX ,  the  single 

step 

t  race 

through  levels  of  procedure  calls  can  be  an  extremely 
laborious  task. 

In  situations  where  the  state  of  the  CPU  does  not  appear 
consistent  with  the  executing  software,  and  the  reliability 
of  the  hardware  is  cues ti onabl e ,  there  are  few  acceptable 
alternatives  to  using  a  digital  logic  analyze;'.  The 
Paratronics  f32  is  the  logic  analyzer  used  extensively  in 
the  AEGIS  Simulation  Laboratory. 
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MCORTEX  LOADER 

This  file  is  assembled  using  the  FASM86  assembler 
(Ref.  18].  After  linking,  when  invoked  as  a  transient 
command  from  the  CCR  level  of  CP/M-B6,  this  file  will 
interactively  allow  the  leading  of  a  C^D  file  containing  a 
^CORTEX  process  or  multiplexed  MCOFTEX  processes.  Only  the 
first  real  processor  entering  the  MCORTEX  environment  is  to 
specify  that  GLOBAL  data  is  to  be  loaded.  Conditional 
assembly  features  pervade  this  code  to  allow  either  MCORTEX 
or  MXTrtACE  (the  diagnostic  version)  to  be  loaded.  The 
conditional  switch  is  called  "MCORTEX",  which  is  set  euual 
to  one  (or  TFUE )  when  the  MCORTEX  version  of  the  loader  is 
to  be  assembled.  The  use  of  the  MCORTEX  or  MXTRACE  LIi'RPtl 
input  option  files  (APPENDIX  F)  determine  which  transient 
command  is  generated. 
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'*•  '•  v  'i'  v  i  v  n*  v  v  v  't'  'i'  *»*  'I-  'i*  v  »,»  *i'  o'  'i*  w  v  a*  'i-  'i»  -r  'i'  »i>  »i*  v  *i*  *,*  ■*»'  •,*  v  ,* 

*  MCOFTFX  /  MXTPACE  File  TFX/TRC.A86  Brewer  24  AUG  84  - 

if. - - -  - ;f 


/ 

/ 


*  This  proprafu  loads  the  MCOFTFX  operatirs  s  y  s  t  °  i'ro~ 

*  disk  into  the  current  CP/M  environment.  The  system  ■•■  / 
915  memory  space  is  reserved  using  CP/M  memory  ma  r  agtumr  •.  t,  -•  / 

*  functions.  Since  INITIALPROC  must  he  overwritten  by  *  / 

*  the  user  I  NIT  I ALPROC ,  the  memory  it  occupies  is  r.ot  / 

*  reserved.  The  portions  loaded  into  thP  interrupt  */ 

*  area  and  into  shared  memory  ( i e  .  GLOB  A LMODUL E /  are  m  * / 

*  areas  not  managed  by  CP/M  and  are  thus  protected  from  *  / 

*  user  overwrite  when  using  PLI  CMD  files.  Conditional  v/ 

*  assemblies  allow  assembly  of  either  MCCRTEX  or  MXTRAC1"-/ 

*  depending  on  the  value  assigned  to  MCCRTEX  at  th-  */ 

*  beginning  of  the  code.  Nine  such  conditional  */ 

*  assembly  statements  are  included.  */ 

if  if  if  if  tf if  if  #  if  3?  if  if  if  *  3;;  if  if  ifif  if  if  if  if  ifif  if  if  if  3;:  ;J:  3^  if  if  3[;  ^  :;e  3^  3;;  if  if  if  3;; if s|c  if  r|< if  if  3,;  ; 


DSEG 

PRO,  0000 R 

'***  ^CORTEX  /  MXTRACF  SELECTION  #**#**##z*###****v#*#>f#*#  / 

^CORTEX  EOU  0  ;***  SET  TO  ZERO  FOR 

♦  ***  MXTRACE 

;***  ADDHF5S  CONSTANTS  ^^s*****#***#*##*###*###**#****##*.;:  / 


FCE 

EOU 

005CR 

; ** 

*  FILE  CONTROL 

FCB  NAME 

EOU 

005DH 

; ***  BLOCK 

FCB  EXTENT 

EOU 

0068H 

EC  B_Cp 

FOU 

007CH 

I  NT  ADD  CS 

EOU 

001 1  H 

;  if** 

INTERRUPT  CODE 

INTRPT  OFFSET 

EOU 

0033R 

;  *  *  * 

SEGMENT  AND 

IF  MCOPTEX 

INTRPT  CS 

EOU 

0C4BH 

;  *** 

7  ECTOR 

ELSE 

INTRPT  CS 

FOU 

0C4  FM 

;  #ttft  f 

1  Htftt#  s - 

END  I  F 

PUPE  MjMBFl.  CONSTANTS  * ^tf###*#*#*****^*#  <* * / 


FIGBTP  K 

IF  MCOPTEX 

FOU 

0080H 

NUM  KOPF  BLOCKS 

FLSF 

FOU 

'*02011 

N'JM  KOBE  BLOCKS 

FNDIF 

EOU 

0038H 

•,nn*tt  2  u###  < — 

NUM_GLOPAL_?LOCKS 

FOU 

0010H 

ASCI I_3 

EOU 

9?. 

'0' 

I 


ASCI  I  9 

ECU 

'o' 

ASCII'6 

F.OU 

'  f.  ' 

ASCII  Z 

EOU 

'Z' 

SLASH" 

ECU 

'/' 

COLON 

EOU 

^  §  / 

SPACE 

EOU 

/  ' 

period 

FQU 

#  / 

CR 

EOU 

000  DR 

LF 

EOU 

00OAH 

:*#*  CONTI OL  Tn  a NSFFE  CONSTANTS 

;  ****: 

IF  '“’CORTEX 

KOBE  SP 

FQU 

007  5  H 

HOFF  SS  V  a L 

EOU 

0C65F 

forf’ds  val 

ELSE 

EOU 

0C49R 

KOBE  SP 

EOU 

0075H 

kore'ss  val 

EOU 

0C6BH 

KOPE  DS  VAL 

ENDIF 

EOU 

0C2CH 

;***  C?/M  FUNCTION 

CONST  6  NTS  ** 

C PM  BDOS  CALL 

EOU 

224 

SYSTEM  RESET 

EOU 

000  0  H 

CONSOLE  OUTPUT 

FQU 

0002R 

READ 

EQU 

000  AH 

PPINT  STRING 

EOU 

0009F 

OPrN  FILE 

EQU 

000  FH 

READ  SEQUENTIAL 

EQU 

0014H 

SET  DMA  OFFS  FT 

FOU 

001  AH 

S  rT  DMA  'BASF 

FQU 

0053H 

ALLOC  M^m  ABS 

EQU 

0  038 11 

FREE  ALL 

FQU 

005AH 

PROG-AM  LOAD 

EOU 

003BH 

NOT  FOUND 

EQU 

00FFH 

#  j(;  £  sji  s*,; # 5;:  #  ^  j(:  ;|c / 


;*###  3  nnnn  <• 
;####  4  unntt  <- 
;###*  5  ftrttttf  <- 


❖ :;-  *  ^  V  V  / 


;  MFSScGrS  *  *  *r  *  £  ^  *  ^:  #^  ^  *  *  #  *  *  *  ^  ^  *  *:  # *  '-i:  v-  -i  •'■- 1-  ■ 

IN  STRING  DR  15 

RE  16 


NO  FILE  MSG  DR  'KOBE  NOT  ON  DEFAULT  DHIVE$' 

^0  J  NF’I  Lr_MSG  DB  'INPUT  FILE  NOT  ON  DESIGNATED  DRIVES' 

NO  MF*CRT_MSG  TR  'UNABLE  TO  ALLOCATE  M  FM  CRY  SPACE  FOR' 

DB  '  MCORTEX S  ' 

FILF_FORM_rRR_MSG  DT  'INCORRECT  FILE  FORMAT  -  TRY  AG  AIN'S' 
START  MSG  DB  'MC  ORTrX  SYSTEM  LOADF::  #**  ON  LINES' 
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P  NAME  MSG  DP  CP  .LF.LF.  'FNTFr.  PrOO-SSCr  7  I  LF  .  A  ,  0  ,  L  F 
T p  'S' 

GLOBAL  Q_MSG  PP  C  5  ,  LF ,  L7  ,  '  LO  f  L  GLOBAL  v  E  ^ ''  R  Y  7  '  ,  n  *  ,  L : 

GM2_VSC  DP  '  Y  TO  LOAD,  CF^r-V  IF  N  CT  '  ,  C  K  ,  LF  .  '  S  ' 

i***  MCOFTFY  ’'FLOTATION  VAFI»P  LEG  *  *  *  *  *  *  * *  *  #  v *  *  vs>?  *  *  *  *  *  v  *  * , ' 

:***  CAUTION  ***  CAUTION  ***  CAUTION  ***  CAUTION  * v**  ** ** * / 
;***  The  following  five  lines  of  code  should  not  ne  »**  / 

;***  separated  as  this  program  assures  they  will  be  *  " >;;  / 

;***  found  in  the  order  shown.  The  code  is  jsed  for 
;***  memory  allocation  and  as  a  pointer  to  KOFE.  *#*/ 

;*##  CAUTION  ***  CAUTION  ***  C‘UTION  ***  CAUTION  ***  *»****«./ 


KCRE  START 

rw 

003 OH  ;***  CAUTION 

IF  MCORTEX 

F0F.F1  BASF 

DW 

0B70H 

f  '■  1  1  PP.ij  .  I  0  i  i 

ELSF 

FOR  El  BAS7 

ENDIF 

DW 

OAC0H 

6  «  #  e  4  - 

FORE 

EOU  DWORD  PTR 

KO.RE  START  ;***  CAUTION 

IF  MCORTEX 

KORE1  LENGTH 

DW 

0100H 

?***  CAUTION 

ELSE 

FOR  El  LENGTH 

ENPIF 

DW 

01C0H 

;##«#  ?  tftttfu  < - 

KO  R  El _  M  _ EXT 

DB 

0 

;#**  CAUTION 

IF  MCORTEX 

KOFF  NAME 

FLSF, 

DB 

'KOFE 

OPS  ' 

KORF  NAME 

ENDIF 

DB 

'FORE 

TRC  '  S  » HP  <  — 

Y CREP_B  A  SF 

DW 

0EE30H  ;***  GLOBAL  "EMORY 

INTERRUPT  VECTO 

V'fl 

INTRPT  OFFSET.  I NT. <PT  CS 

INT_VFCTOR_ADD 

DW 

TNT_&DD_CS 

I N IT  OFFSET 

DW  0000 H 

#  •>> 
f  ■'  •' 

INITIALIZATION 

IN  IT  BASE 

DW  0439H 

.  *** 

ROUTINE  PAR  SM  TEPS 

IF  "CORTEX 

I N IT  DS  SFG 

FLSF 

DW  0C65H 

•  3^  s;=  J*: 

FOR  DYNAMIC  ASSIGNMENT 

INIT  DS  SFG 

FNDIF 

DW  0C6BH 

;####  g  tititu  < - 

INIT  DS  OFFSFT 

DW  0068H 

; 

WHEN  USER  INITIALIZATION 

INIT  IP  OFFSFT 

DW  0074H 

;  <=  =4= 

IS  INDICATED 

J***  CONTROL  TRANSFER  VARIAPL7S  *** 

*»»  V  v  '»s  -e  'i'  *■»  ■  'i'  ^  J,.  *,<  3jc  J,-  J 

KOkF  ss 

DW 

KCRE 

SS  VAL 
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■core  rs 


DV  VO-E  DS  V A T, 


s ^  ^ T  CO"!11  S fffjMV1; t  *  ■•■■: # *= ^ 


v  C  C  r.  T  E  X  _  L  0  A  D  r  °  r  S  EG 

CALL  CLR  SCREEN 
CALL  MCORTF X  LOAD 
CALL  CLR_S  CREFN 

CLD 

PUS^  n 


;***  5CT  FFN  CONTROL  E  LOG  ON 
;***  MESSAGES 


I***  INITIALIZATION 

•  i;.  if  * 


?***  GET  LOAD  GLOBAL  INDICATOR 

CALL  IN  GLOB'-L  ;***  *3K  IF  GLOBAL  TO  BF  LOADED 

MOV  DX, OFFSET  IN_STRING  :  ***  GET  FUFF  SR  LOCATION 
mc  V  C  L  ,  4  E  s  D  ?***  CP/A1  PA  HAMSTER 

I  NT  CPM_BDOS  CALL  ;***  GET  INDICATE  • 

;***  GENERATE  FORE  FILE  CONTROL  PLCCX  *** *** ***-:■** *-R  ** * *  * v / 

GEN_KCR  E  7C  p : 

MOV  3X.10  ?***  MOVE  11  CHARACTERS 

MOV  S I , OFFS  FT  EOF  F_N AMF  I*--  POINT  TO  *0'E  N  a  M 5 
MOV  DI.FCB_NA.MF  :  ***  POINT  TO  FCB  NAME 

M  0  V  _  K  0  R  E  : 

MOV  AL,  fSI+BXl  ?***  GOT  CHARACTER 

^OV  [DT  +BX ]  , A  L  ;***  STOP7  CHARACTER 

DEC 

JGF  MOV. KORF 

Qprfj  KORF.OPS  FILE  ON  DEFAULT  DISE  #***#**v*******#v<y 


OPEN  _K C P  E  : 

NO V  CL.  OPEN  FILE 
MOV  DX.ECP 
I  NT  C?M_PDOS  CALL 
CMP  A  L , N  0  T  _  FO  U  N  P 
JNF  PROCES S_K OB E 
.IMP  NC_FILE 
PROCESS  KOBE: 

MOV  DI.0 

MOV  F C B _ C R [D I  1,^1 


*#*  CP/M  PAFAMFTE? 

***  CP/M  PARAMETER 
***  OPEN  FILE 
***  VILF  FOUND? 

***  FILE  FOUND!  CONTINUE. 
***  GC  INDICATE  FH’-CR 


5 ***  START  WITH  R SC  ZF h! 


;***  RESERVE  MEMORY  ^fc^**#**##-*#***#****'.1****^'.-’^'*-  -  / 


MOV  CL, FREE  ALL  M  E^ 

INT  CPM_iDOS_OALL 
MOV  CL, ALLOC  MEM  A°S 
MOV  DX, OFFSET  vopvi  *»5F 
INT  CRM  FDOS  CALL 


;***  CB/M  PAR'METFP 
I***  FRF|F  ALT  MEMORY 
;-**  CP/M  PARAMETER 
;***  CP/M  PA  F  AMETEK 
:***  ALLOCATE  MEMORY 
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r  : 

HD-A152  961  A  REAL-TIME  EXECUTIVE  FOR  MULTIPLE-COMPUTER 
(U>  NAVAL  POSTGRADUATE  SCHOOL  MONTEREV  CA 
DEC  84 

UNCLASSIFIED 

CLUSTERS 

D  J  BRENER 

F/G  9/2 

~ — i 

* 

■ 

■T 

i _ 

CMP  AL,  NOT  *OUND 
JNE  LOAD  MCORTEX 
JMP  NO  MEMORY  ALLOC 


;***  mfmqRY  AVAILABLE*/ 

:***  MEMORY  AVAILABLE!  CONTINUE 
;***  GO  INDICATE  EPFOr 


•  LOAD  MCORTEX  CODE  5^ / 


LOAD  MCORTEX: 

MOV  DI ,0 

MOV  BP. NUM_KORE_BLOCKS 
MOVE_KOPE  LOOP: 

MOV  DX.FCB 

MOV  CL.RFAD  SEQUENTIAL 
INT  CPM  BDOS  CALL 
MOV  ES ,KOPEl_BASE 
MOV  CX , FIGHTH_K 
MOV  SI ,CX 
REP  MOVSB 
DEC  BP 

JNZ  MOVE  COR*1  LOOP 


;#**  S fT  DFST.  OFFSET 
i***  SET  BLOCK  COUNTER 

;***  C?/M  PAR AMETFP 
J***  CP/M  PARAMETER 
i***  READ  IN  128  BYTES 
;*#*  SET  DESTINATION  SEGMENT 
;#**  SET  BYTE  COUNT 
;***  SET  SOURCE  OFFSET 
J***  MOVE  128  BYTES 
;**#  DFC  BLOCKS  TO  MOVE 
;***  if  NOT  DONE,  DO  AGAIN 


;***  LOAD  INITIALIZATION  MODULE  **#*****#**###*****«#**#*/ 


MOV  DI , I NIT_CFFSET 
MOV  DX.FCB 

MOV  C L , B E A D  SEQUENTIAL 
INT  CPM_EDOS_C ALL 
MOV  ES , I  NIT  BASE 
MOV  CX. EIGHTH  K 
MOV  SI.CX 
RFP  MOVSB 


***  SET  DEST.  OFFSET 
***  CP/M  PARAMETER 
***  Cp/M  PA i-  AMF.TEI 
***  READ  IN  128  BYTFS 
***  SET  DESTINATION  SEGMENT 
***  SET  BYTE  COUNT 
***  SET  SOURCE  OFFSET 
*+*  MO VF  128  BYTES 


LOAD  GLOBAL  MEMORY  *  * :^#  *  *  #  #  *  ^  ’S’!'  *  #  *  *  *  *  *  £  #  $  * *  *  *  *  *  £  *  =>  / 


CMP  IN  STPING+1.0H 
JZ  INSTALL  INTERRUPT 
MOV  DI ,0 

MOVE  GLOBAL  LOOP: 

MOV  DX.FCB 

MOV  CL, REAL  SEQUENTIAL 
INT  CPM_BDOS_  C  ALL 
TFST  AL , AL 

JNZ  INSTALL_INTEP?UPT 
MOV  ES.K0PF2_B.ASF 
MOV  CX.FIGHTH  K 
MOV  SI.CX 
PEP  MOVSB 

JMP  MOVE  GLOBAL  LOOP 


?***  SHOULD  GLOBAL  BE  LOADFD? 
;***  IF  NOT,  SKIP  LOAD 
;***  SET  DEST.  OFFSET 


***  C?/M  PARAMETER 
***  CP/M  PARAMETER 
***  READ  128  BYTES 
***  NO  MORE  DATA? 

***  NO,  SO  GO  ON 
***  SET  DEST.  SEGMENT 
*#*  SET  BYTE  COUNT 
***  SET  SRC.  OFFSET 
***  MOVE  128  BYTFS 
***  IF  NOT  DONF ,  DO  A 


AGAIN 


;***  INITIALIZE  INTERRUPT  VECTOR  *###*#**####****#*###*#*#/ 


INSTALLINTFPBUPT: 

M0V  ES , I  NT  VICTOR  ADD 


;***  SET  DESTINATION  SEGMENT 
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y  »  %  w*..  *  j  rg  v  v  tv?  wj  r.  wv,«'V  v  ^v,-,  x* 


^OV  DI.0 

MOV  SI. OFFSET  INTFRRUPT_VFOTO?. 

MOV  CX,2 

REP  MCVS  AX, AX 


; ***  SFT  DEST.  OFFSET 
;***  SRC.  OFFSET 
;***  2  WORDS  TO  MOVE 
;***  MOV  TWO  WORTS 


;jjcv>jt  rgi  o  iv  i  f  i^r  n  p>  me  tf***********###:?#??*####**##*#***#/ 


READ_A  NAME: 

CALL  PROCESSOR  NAME 
MOV  DX, OFFSET  INSTRING 
MOV  CL, READ 
INT  CPM  BDOS  CALL 


*#*  MSG  TO  INPUT  A  FILE  NAME 
***  DX  <—  BUFFER  LOCATION 
***  0 pm  PARAMETER 
***  OFT  a  filF  NAME 


;###  ggip  j«0F  DRIVE  DESIGNATION  ************#****##>■,«*>!<#«###/ 


MOV  DI,0 


sfT  DESTINATION  INDEX  TO  ZERO 


CMP  IN_STRING  t-3. COLON  J< 
JF  SET_DRIVE  ;*** 
mov  fcb [di ]  ,n  ;*** 

MOV  SI  ,2  ’,*** 
JMP  FORM  FCP 


**  IS  DRIVE  DESIGNATED? 
IF  YES,  PUT  DRIVE  IN  PC  B 
SFT  DFFAULT  DRIVE 
3RD  POSIT  IN  STRING,  IS 


1ST  LETTFH 


SET 

DRIVE: 

MOV“ 

AL.IN  S' 

TRING+2 

; 

AND 

AL,.CFH 

;  ififif 

SUB 

AL.40H 

• 

MOV 

FCB  f DI] 

.  *  L 

•  ### 

AND 

AL.0F0H 

;  ##* 

TEST 

AL.AL 

JNZ 

INPUT  E 

:'POR_B 

MOV 

SI  ,4 

;  *** 

GET  DRIVE  LETTER 
CONVERT  TO  UPPER  CASE 
CONVERT  TO  A  BINARY  NUMBER 
SET  DRIVE 

LIMIT  LINF  DRIVE  TO  A  THROUGH  0 


5TH  POSIT  IN  STFING  IS  1ST  LETTER 


I  ^ Vv 


INITIALIZE  FILE  CONTROL  BLOCK  ******** 


if  %  #  £  * ;  #  *  $  ■: :  if  if  £  #  / 


FORM 

FCB: 

MOV 

3X.0AH 

MOV 

»L, SPACE 

; 

FILL 

SPACES: 

MOV 

FCB  NAMFfBX]  ,  at. 

; 

DEC 

BX 

; 

JGE 

FILL_SPACES 

;  *** 

MOV 

FCB  CRCDP  ,DI 

; 

MOV 

FCB_EXTFNT  fDl] ,DI 

; 

FILL  FCB  NAME  WITH  SPACE  5 


NEW  FILE  CURRENT  RECORD  13  ZFRO 
NEW  FILE- CURRENT  EXTENT  IS  ZERO 


;***  INSTALL  FILE  CONTROL  BLOCK  NAME  *************¥*******/ 


NAME  LOOP: 

MOV  AL.IN  STRING FS 1 1  ?***  GET  A  CHARACTER 

CMP  »L .PERIOD  ?***  START  TYPE  ? 

JNE  FCB_CONT_l  I***  IF  NO,  CONTINUE 


9? 


MOV  DI.B 

;  *** 

JMP  FCB  CONT  2 

ECB  CONT  1: 

CALL  VALID  INPUT 

»*** 

TEST  AX. AX 

; 

JE  INPUT  FRROR  P 

MOV  FCB  NAME [DI]  , AL 

•  <s 

MOV  AX, SI 

CMP  IN  STRING+1 , AL 

•*** 

JB  OPEN  PROCESSOR 

INC  DI 

FCB  CONT  2: 

INC  SI 

; 

JMP  NAME_LOCP 

; 

EXIT  ROUTINE  B: 

jmp  Exit  souTinf 

j 

INPUT  ERROR  B: 

JMP  INPUT  ERROR 

;  * 

IF  YES ,  DJUST  DESTINATION 
ANT  CONTINUE 

CH^CK  FOR  LETTFR  OR  NUMBER 

MOVE  CHARACTER  INTO  FCB 
IS  THIS  LAST  CHARACTER? 

IF  YES,  LOAD  THE  FILE 

IF  NO,  ADJUST  FOR  NEXT  LETTER 

AND  00  AGAIN 

BRIDGE  TO  EXIT  ROUTINE 
RIDGE  TO  INPUT  ERROR 


•  OPEN  THE  PROCESSOR  FILE  tf##**#**’**#****##*********#**/ 


OPEN_PROCESSOR: 

MOV  DX , FCB  ;#** 
MOV  CL, OPEN  FILE  ;*** 
INT  CPM  HDOS  CALL  ?*** 
CMP  AL,  NOT_FOUND  ?*** 
JNE  LOAD  PROCESSOR  ;*** 
JMP  NO  INPUT_FILE  ?*** 
LOAD_PPOCFSSOR  : 

MOV  DX.FCP  ;*** 
MOV  CL, PROGRAM_LOAD  J*** 
INT  CPM  BDOS  CALL  }*** 


CP/M  PAPAHETER 

CP/M  PARAMETER 

OPEN  THE  FILE 

WAS  FILE  ON  DISK 

IF  YFS ,  GO  LOAD  THE  FILE 

IF  MO,  SIGNAL  ERROR 

CP/M  PARAMETER 
CP/M  PARAMETER 
LOAD  THE  FILE 
DATA  SEGMENT  IN  AX 


;***  SET  UP  THF  INITIALIZATION  STACK 


*  *  £  *-•  *  :'f  #  -I'  *  *  *  *  >r  »St  Xf  #  if  f 


*#*  CAUTION  #**  CAUTION  ***  CAUTION  ***  CAUTION  *#***#♦**/ 
***  This  code  is  highly  dependent  ucon  Incut  of  PL/I  ***■/ 
***  CMD  file  with  CS  headpr  first  and  data  header  ***/ 
***  second.  This  is  the  normal  situation  and  should  ***/ 
***  cause  no  difficulty.  Also  this  code  is  highly  ***/ 
***  dependent  upon  the  location  of  the  initialization  *** / 
***  module  stack  and  the  location  of  the  DS  and  IP  ***■/ 
***  values  within  that  stack.  Changes  in  stack  ***/ 
***  location  or  organization  should  be  reflected  he  re .***/ 
***  CAUTION  ***  CAUTION  ***  CAUTION  ***  CAUTION  *♦*♦*#***/ 


EXIT  ROUTINE: 
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Ulll|l|M.M^I'<l 


MOV 

FS, 

INIT 

DS 

SEG 

MOV 

PX, 

I  NTT 

DS 

^OFFSET 

MOV 

ES: 

fBX  1 

.  AX 

MOV 

DX, 

0 

MOV 

BX, 

INIT 

IP 

..OFFSET 

MOV 

ES: 

[BX] 

,DX 

MOV 

CL, 

SET 

DMA 

_BASE 

MOV 

DX, 

AX 

INT 

CPM 

BDOS  C 

ALL 

MOV 

CL, 

SET 

DMA 

OFFSET 

MOV 

DX, 

EIGHTH  ! 

K 

INT 

CPM 

BDOS  C 

ALL 

***  POINT  TO  IN  IT  STACK 
***  POINT  TO  DS  ON  STACK 
***  INSTALL  NSW  IN  IT  PS 
***  SET  NEW  IP  VALUE 
***  POINT  TO  IP  ON  STACK 
***  INSTALL  NEW  INIT  IF 
***  CP/M  PARAMETER 
***  SET  BASE  PAGE 
***  SET  DMA  BASE 
***  CP/M  PARAMETER 
***  GET  OFFSET 
***  SET  DMA  OFFSET 


; #**  TRANSFFR  CONTROL  TO  MCORTFX 


J«  J«  «*«  *v  J#  •**  hV  ftltf  « '#  **<  %• » 

v  *i»  nA  'i*  v  ¥  *•*  <v  v  v  •»*  'i*  v 


/ 

/ 


MOV  SP.KORF  SP 
MOV  BP.SP 
MOV  SS ,KORE_SS 
MOV  AX ,  DS 
MOV  ES  ,  AX 
MOV  DS.KORF  DS 
JMPF  ESrKORE 

;***  VALID  CHARACTER  FOR  FILE 


:***  KCHE  STACK  PCI  NT  Eh 
?***  KOBE  STACK  BASE 
:***  KORE  STACK  SEGMENT 
;***  GET  DATA  SEGMENT 
;*##  POINT  FS  TO  DS 
;***  KORE  DATA  SEGMENT 
;#**  JUMP  TO  MCORTEX 

NAME  CHECK  **##*#********#*#/ 


VALID 

INPUT: 

CMP 

AL 

.SLASH 

JE 

IS 

VALID 

CMP 

AL 

.ASCII 

0 

**# 

JB 

NOT 

VALID 

CMP 

AL 

.ASCII 

9 

JBE 

IS 

v  alit" 

AND 

AL 

Tsfh 

CMP 

AL 

.ASCII 

A 

*** 

JB 

NOT 

VALID" 

;  *  *  * 

CMP 

AL 

,  ASCII 

z 

if. 

JEE 

IS 

VALin" 

*** 

NOT 

VA 

LID: 

MOV 

AX 

■*** 

IS 

VALID: 

RET 

*** 

IS  THE  CHARACTER  A  NUMBER 

CONVERT  CHAPACTEP.  TO  UPPE°  CASE 
IS  THE  CHARACTER  A  LETTER 


INDICATE  BAD  CHARACTER 
CHARACTER  OK 


•<«*#  ABORT  MESSAGES 


NO_FILE: 

CALL  CLR_SCRFEN 

MOV  DX, OFFSET  NO_FILF_MSG  ;***  PTR  TO  MSG 

JMP  MSG  OUTPUT  ;**#  PUT  MSG 


NO  MEMOR Y_ALLOC : 

CALL  CLR_SCREEM 

MOV  DX, OFFSET  NO  MEMORY  MSG  ;  ***  PTR  TO  MSG 
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MSG  OUTPUT: 

MOV'CL, PRINT  STRING 
I  NT  CPM  BDOS  C  ALL 
GALL  CLR_SCREEM 
*OV  CL,SYSTEM_3ESET 
MOV  DL , 0 

I  NT  CPM  BDOS  CALL 


;***  CP/M  PARAMETER 
;***  SEND  CHAP  TO  CONSOLE 

?***  CP./M  PARAMETER 
;***  RELEASE  MEMORY 
;***  EXIT  TO  CP/M 


;***•  SCPEEN  CONTROL  ************************************** / 


CLR  SCREEN: 

MOV'CL, CONSOLE  OUTPUT 

;  *** 

ISSUE  CARRIAGE 

RETURN 

MOV  DL.CR 

;  *** 

INT  CPM  BrCS  CALL 

;  *** 

MOV  DI.PCR 

;  *** 

ISSUE  12  LINE 

FEEDS 

LINE  FEED: 

MOV  DL.LF 

•  ijt 

MOV  CL, CONSOLE  OUTPUT 

;  *** 

INT  CPM  BDOS  CALL 

;  *#* 

DEC  DI 

;  *** 

JNE  LINE  FEED 

RET 

;  *** 

SEND  MSG: 

MOV  CL.PFINT  STRING 

;  *#* 

CP/M  PARAMETER 

INT  CPM  BDOS  CALL 

RET 

;  *** 

PRINT  A  STRING 

TO  CONSOLE 

;***  non  ABORT  MESSAGES  **********************************/ 


MCORTEX  _LOAD : 

MOV  DX, OFFSET  STA RT_MSG 

CALL  SFND_MSG 

RET 


PROCESSOR  NAME: 

MOV  DX.OFFSFT  P_NAMF  MSG 

CALL  SEND_MSG 

RET 

IN  GLOBAL: 

MOV  DX.OFFSFT  GLOB  AL_0  MSG 

CALL  SEND_MSG 

RET 


INPUT  ERROR: 

CALL  CLR  SCREEN 

MOV  DX, OFFSET  FILE  EORM_FRP  MSG 
JMP  EXIT  ERR 


NO  INPUT  FILE  : 


4  t>p^\itn  i  v  r, 


GATE  MODULE  SOURCE  CCI^E 

SYSDFF.PLI  and  GATEM . AP6  filps  are  contained  in  this 
appendix.  PT./I-86  entry  variables  in  3YSDFF.PLI  provide  a 
"gateway"  to  the  MCORTFX  ^kernel)  supervisor  via  GATEMOD  or 
GATFTRC.  Also  contained  in  SYSDFF.PLI  are  constant  (or 
symbolic)  definitions  that  are  used  by  the  demonstration 
processes  contained  ir  Appendix  E.  Kote  that  system  reserved 
constants,  used  by  MC0RTFX  kernels  and  the  NI30H'  Driver  and 
Packet  Processor  are  also  cor. tained  in  this  file. 

GATEM/T.AP6  is  assembled,  and  as  a  relocatable  object 
file,  is  linked  with  MCORTFX  processes  to  set  up  the  PL/I-8C 
to  PL/M-86  Darameter  passing  interface. 

A  conditional  assembly  switch  "GATEMOD"  allows  for 
assembly  of  a  GATEMOD  or  GATETRC  version. 


/slsslts^sltsltsltsjtsCtstss^sltsits.tsltslt  sltslt  s)tsits;ss;s  Jjtsjt  sfc  >!=  sit  sitsfcij;  sltsltsjtsltsfc  sits^slrsl:  s;ts;t5)(  sf  sit  s',;  sjt  s(t  s*  / 

/#£*  *r  *»'  *{'  ^{S  5js  5}C  «jc  5jC  3{C  5,1  V^'i'V'T'i*  vv  *»«  #  s[t  sit*  fcsjtsjtsjtsltsjtsttil:  sit  sjtsfcsfctfsfcs.'t  smalts!:#:-.:  sfcsJtsJts'.csits'.tslssStsitsi:  j 

/**  S  YSDE?  PI  LF:  SYSDEF.PLI  David  J.  BREW  Eli  1  3  FP  b4  **/ 

/♦vsrrzsszr  zr  rrrrszrrzzr  =  =  =  ==  =  2s-=ssrsr  =  =  --===  =  n::.  =  s=;T==.s 

/**  This  section  of  code  is  ftiven  as  a  PLI  file  to  be  ■• 
/**  ‘fclNCLUDF'd  with  MCOF.TFX  user  cro^rarrs.  ENTRY  * 

/*#  declarations  are  nadp  for  all  available  MCORTEX  * 

/*#  f unc  ti  ons  .  55 

/  If  X  «  *  Sjt  «  5)t  £  *  *  =r  *  *  *  =f*  5?  $  $  5?  Sjt  *  #  ifc  £  #  #  #  >:<  <S  S*  #  *  Sjt  *  £  5*  *  Sft  S*  ajs  *  #  ❖  *  #  Sr  ❖  #  *  >r  #  *  *  *  S^  Si 

/st::;'######  -Jt  jjc  #,»  »J(  v  »,*  *,*  s|:  sit  sit  s;.-  sit  s':  sjc  )|:  sit  si*  sit  sjs  <;  sic  sit  s',;  sit  sjt  sit  :1c  >;:  '.'•  s',;  si:  s^  s^  s^  sjt  sit  si;  si:  s^  s',,  sit  s',;  sit  s'.t  sjt  si 

DFCLARE 

advance  ENTRY  (PIT  (9)), 

/*  advance  ' event_count_id )  */ 

await  ENTPY  (WIT  (8),  BIT  (16) )f 

/*  await  ( even t_c oun t _id  ,  awa  i  ted_val  le  )  */ 

create  eve  ENTRY  (BIT  (8)). 

/*  create_evc  (e vent_count_id )  */ 

createproc  ENTRY  (BIT  (8),  BIT  (8), 

PIT  (16),  3  IT  (16),  BIT  (16', 

BIT  (16),  BIT  (16),  BIT  (16)), 

/*  create_oroc  ( orocessor_id ,  processor  priority, 

/*  stack_Dointer  highest,  stack  sep,  ip 

/*  code  seg,  data_seg,  extra_se«) 

create  seq  ENTRY  (PIT  (8)), 

/*  creatP_sea  ( seq uenoe_id )  */ 

preempt  FNTRY  (PIT  (8)), 

/#  preempt  ( processor_id )  */ 

read  FNTRY  (BIT  (8))  FFTHFNS  (BIT  (16)), 

/*  read  (event_c ount_id )  */ 

/#  r.FTURNS  cur  ren  t _ever>  t  _cnu n  t  *  / 

ticket  FNTRY  ('PIT  (8))  RETURNS  (PIT  (16)), 

/■•'  ticket  ( sequence_id )  */ 

/*  r.FTUPNS  unioue_ti  cket_  value  */ 

iefinecluster  FNTRY  (bit.(16)), 

/*  define  cluster  'local  cluster  address)  */ 


4 ist ribut. ion_map  FNTRY  (bit  (8),  bit  (8),  bit  (16)) 

/*  d  l  s  tr  ibut.  i  on_ma  p  (distribution_tyue,  id, 

cluster  addr)  */ 


a  d  d  2  b  i  t  If  F  N  T  p  Y  (  B I  ?  (  16)  ,  R 1 7  (  16)  )  P.  FTUPNS  B I T  ( 1 6  j  )  I 
/*  a<H2bitl6  (  a_lFbi  t_# ,  another  16bit  #)  */ 

/*  RETURNS  a  16bit  #  +  another  iebit_#  */ 


^replace 


*** 

E VC$ I  0  '  S 

:i)  USER 

T-ACX  IN 

by 

'01 

'b4 

TRACE  OUT 

by 

'22 

'b4 

MISSILE  ORDER 

IN 

by 

'03 

'b4 

MISSIIF  ORDFR 

OUT 

by 

'04 

'  b4 

/*  (2)  SYSTEM 

ERB  READ  by  'fc'b4, 

ERE  WRITE  by  'fd'b4, 


/* - 

***  SEOU^NCEP  NAMES  *** 

a)  USER 


*/ 


*/ 


*/ 


/*  (2)  SYSTEM  */ 

EPP  . WpITF_R*OUEST  by  'ff'b4, 

/* - 


***  SH 8  FED 

VAFIAPLF  POINTERS  *** 

(1)  USER 

/*  (2)  SYSTEM 

*/ 

bl ock_pt  r_va 1 ue 

by 

'8002  'bl, 

xml  t_  pt  r_  value 

by 

'8078  'b4 , 

rcv_ctr_  value 

by 

'H666'b4, 

END  RESERVE 

by 

'FFFF  ' 1 4 * 

*  G  A.TEMOI  /  GATETRC  File  GATEM/T .  a06  BREWER  1  SEP  34 
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TMs  module  is  given  to  the  uspc  in  ob.i  form  to  link 
with  his  initial  and  orocess  modules.  Any  changes  to 
user  services  available  fr^m  the  OS  must  be  reflected 
here.  I  r.  this  way  the  user  need  not  be  concernei  with 
actual  GATEKEEPER  services  codes.  Two  lines  of  code 
are  contained  in  conditional  assembly  statements  ani 
control  the  output  to  be  GATEMOD  or  G*TETPC  depending 
on  the  value  of  GATEMOD  at  the  code  start. 


*  This  module  reconciles  parameter  passing  anomalies 

*  between  MCORTEX  'written  in  PL/M)  and  user  programs 

*  (written  in  PL/I  )  . 

*  - 

*  All  calls  are  made  to  the  GATEKEEPER  in  LEV EL2  of  the 

*  OS.  The  address  of  the  GATEKEEPER  must  be  given  b°low 

*  - 

*  The  ADD2BIT16  function  does  not  make  calls  to  MCOLTEX. 

*  It's  purpose  is  to  allow  the  addition  of  two  unsigned 

*  16  bit  numbers  from  PL/I  programs. 

jj:  if  x-  #  #  #  V  #  #  <s  *  if  afc  #  #  #  sje  #  #  5,1  ijc  #  :<!  #  #  #  if  ijc  #  s',!  #  £  >jt  #  j;c  s(t  sj:  >;c  sj:  #  if  if  if  if :|s  ij?  t-  #  a[:^ 


DS  EG 


GATEMOD  ECU  0  ;***  SET  TO  ZERO  FOR  GATETRC 

set  TO  ONE  EOF.  GATEMOD 


PUBLIC  ADVANCE  ;***  THES  v  DECLARATIONS  MAKE  THE 

PUBLIC  AWAIT  ?*#*  GATEKEEPER  FUNCTIONS  VISIBLE 

PUBLIC  CPE *TE_EVC  ?**#  TO  EXTERNAL  PROCESSES 

PUBLIC  CREATE_PROC 

PUBLIC  CPE  A TE_SEO 

PUBLIC  PREEMPT 

PUBLIC  READ 

PUBLIC  TICKET 

PUBLIC  DEFI NF_CLUSTFH 

PUBLIC  DISTRIBUTION  MAP 

PUBLIC  A DDPBI r,16 


AWAIT  IND  ECU  0  ;***  THESE  ARE  THE  IDENTIFICATION 

ADVANCE  IND  EQU  1  ;**#  CODES  RECOGNIZED  BY  THE 

CREATE_FVC_IND  EOU  2  :***  GATEKEEPER  IN  LEVEL  II  OF 

C RE* T E_S EO  IND  EOU  3  ;***  MCOt'TEX 

TI CK FT_I ND  FOU  4 

3EAD_I ND  EOU  5 

CfiE»TF  PROC  IND  EOU  6 

PREEMPT  IND'EOU  7 

DEFINE  CLUSTER  IND  EOU  R 

DISTRIBUTION  Map  IND  EOU  9 

IE  GATEMOD 

GATEKFEPEF  IP  DW  0036H 
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GATFKEEPER  CS  DW  0BADH 
ELSE 

G ATEKFFPFR_!  P  DW  036P»  ;#«##  1  ##*#  < - 

GATEKE^PE'-  _CS  T  *  0B4CH  •,***#  2  ft  nan  <—  - 

ENDTF 

GATFFEFPER  ^OU  OWO^.r  FTP  G  A  TEFPEPEF_ I P 
CS2G 

;*##  f|*fAjT  aw*I7  ***  AWAIT  ***  AW8  IT  AW.»IT  *#  *<****$/ 

AW  "IT: 

PUSH  ES 
MOV  SI ,2[«Xl 
MOV  FX ,  [BX ] 

MOV  AL.AWA  IT  INr 
PUSH  AX 
MOV  AL.TBXl 
PUSH  AX 
MOV  AX,  [SI  1 
PUSH  AX 
PUSH  AX 
PUSH  AX 

CALLF  GATEKFFPF*. 

POP  ES 

RET 

ADVANCE  ***  ADVANCE  #**  ADVANCE  ***  ADVANCE  *##*###***/ 
ADVANCE: 

PUSH  ES 

MOV  BX.fRXl  JBX  < —  PTR  TO  NAMF  OF  EVENT 

MOV  AL, ADVANCE  TND 

PUSH  AX  "  ;N  <—  ADVANCE  I NDI CA  TER 

MOV  AL.OXl 

PUSH  AX  JPYT  < —  NAME  OF  EVENT 

PUSH  AX  ?  WORDS  <—  UNUSED  WORD 

PUSH  AX  ;PTR_SEG  <—  UNUSED  WORD 

PUSH  AX  J PTR  OFFS  FT  < — UNUSED  WORD 

C ALL F  GATEKEEP™ 

POP  ES 


; S I  < —  PNT  TO  COUNT  'WAITED 
;BX  0 —  PNT  TO  NAME  OF  FVFNT 

IN  <—  AWAIT  INDICATOR 

JBYT  < —  NAME  OF  EVENT 
LAX  <—  COUNT  AWAITED 
tWOPDS  < —  COUNT  A. W  "  ITED 
«  PTR _S  EG  <--  UNUSED  WORD 
JPTR  OFFSET  <— UNUSED  WORD 
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*07  BX  ,  r BXl 

*0V  «L  ,  ro^ATr_pVr_I'ID 

PUSH  AX 

KOU  aL , r^xi 

PUSH  AX 

PUSH  AX 

PUSH  AX 

PUSH  AX 

CALLF  GATEK^EPE^ 

POP  ES 


;  p  X  0 —  PTr-  TO  NAME  OF  EVENT 

?M  <—  Cr  EATE_EV  C  INriCATCP. 

;PYT  < —  FAME  OF  EV^NT 
{WORLS  <—  UNUSED  WORD 
{PTR  S  EG  < —  UNUSED  W0»’D 
{  PTR*  OFFS  FT  < — UNUSED  WORD 


R  FT 

;***  C R E A T F  SEC  ##*  CfiEATF  _SEC  ***  CHEAT E_I 


*****  / 


CPFATF  SEC: 


PUSH  FS 
MOV  BX , [BX] 

MOV  AL,CRF*TF  SFO_INT) 

PUSP  AX 

MOV  AL , fPXl 

PUSH  AX 

PUSH  AX 

PUSH  AX 

PUSH  AX 

CALLF  GATFKFFPFR 
POP  FS 


{BX  <—  PTR  TO  NAME  OF  SEC 

;.N  <--  CHEAT  E_SEO  INDICATES 

5  BYT  < —  NAME  OF  SEO 
{WORDS  < —  UNUSED  WORD 
{ PTR_S  EG  <—  UNUSED  WORT 
; PTR  OFFSET  <--UNUSED  WORD 


PET 

;  ***  TICKET  ***  TICKET  ***  TICKFT  ***  TICKET  ***  TICKF1  ***/ 


TICKET: 


PUSH  ES 

DUSH  FS 

MOV  CX.SP 

MOV  EX  ,  [BXl 

MOV  »L. TICKFT  I  NO 

PUSH  AX 

MOV  AL,  [BX] 

PUSH  AX 
PUSH  AX 
PUSH  SS 
PUSH  CX 

CALLF  G A TFK FFD7R 
POP  BX 
POP  ES 


{TICKET  NUMBER  DUMMY  STORAGE 
{POINTER  TO  TICKET  NUMBER 
;  B  X  < —  PTR  TO  TICKET  NAME 

;  N  < —  TICKET  INDICATES 

{BYT  <—  TICKET  N 6  ME 
{WORDS  < —  UNUSED  WORD 
{ PTR_SEG  <—  TICKET  NUMBER  S  EG 
{?TR_OFFSFT  < —  TICKET  NUMBER  POINTER 

{RETRIEVE  TICKET  NUMBER 


RET 
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?;?  it  it  it  it  A*  it  A' it  A'  it  it  3?  it it  it  :;c  ?;r  s;t  >,r 

^CORTFX  i^r.ut  notion  file 


ICCRTEX 


c  o -1  ^  |  a  b  f  B2 9  M  .data  [  a  h  [  ]  J  "I 


*»*  y-  V-  j,  ,1.  j,  j.  j,  j-  j.  j,  j,  o.  *1.  >.v  wu  *>.  .v  «•■-  »'»  -p»  -y  *'/  »> 

. 'r  v  'I*  t-  -n  Ji‘  '» •  *r*  'r-  'r  *.  v  *»'  'p  *)>  »p  /,«  «p  .p  »,»  ^  . 

*■-  ■1'  v  ■'  Ip  Ip  jJj  tj?  »*;  jj*  ;V  5^;  ?J;  jjc  Jjc  5jc  >[.  ;*?  j[j  ;J{  jJ;  ; 


C1PROC  input  option  file 

ft:  ft:  ft:. ft:  ft:  ft:  ft-  ft:  ft:  ft:  ft:  ft:  ft: ft-  ft:  ft-  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft-'  ft'  ft:  ft'-  ft:  ft:  ft'  >i:¥v<rv¥  ft:  >1'  -f  ft'-  ft:  -r  <ti|:!fvv¥: 
:;:  ft:  .;■ ft: ;,.  ft:  ft;  V:  ft:  ft: ft;  ft;  ft-  ;'  ft-  ft:  ft:  ft:  ;Jt  ft:  ft:  ft:  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft.  ft  ft  ft  ft  ft  ft  ft  ft  ft.  ft  : 


'  ft  ft  ft  ft  ft  ft  5) 


ft  1  p  r  o  c  - 

sysinitl  [rr-1e[aD[439]],datarabr>:,C','0]  , rr’  f  C*  ]  ,  a  d  [82  1  ]  ,  "ia  t  ra  1 1  1  1  , 
s.ysd  ev  , 
a s'T'r out  , 
pa  t  enod 

it  ip  3[t  it  it  #  sjs  3js  s{*  jgs  ^  #  it  ip  #  j!»  #  3^  3{c  :',c  #  #  s£  #  3£  sjt  ip  a;;  jjt  sjc  #  3£  >£  a;s  3|;  f-  -t  V  it  A'  V  sj-  3;:  ip 

3?  3^3j:  # At 3js  v  ajc  3^  3|:  ^  #  >Je  ^  a*.-  ;Jc  ^ ^  ^  y,c  ^ .•*?  ajc  ^^3*/  3^  a,':  ^  ^  ^  * 

TRACKER  input  ootion  file  *** 

ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft: :,:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft: :,:  ft:  ;.-  ft;  ft:  ft: 
ft:  ft:  ft;  ft:  ft-  ft:  ft.  ft:  ft:  ft:  ft  ft:  ft:  •'  ft:  ft:  ft:  ft:  ft:  ft:  ft.  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft-  ft:  ft:  ft-,  ft-  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft: 

tracker  = 

trkdinit.  fcode[at)  [439]  ],data[ab[6ff]  ,^[0]  ,ad  [82]  ]  ,  mac  [a  1 1  1  1  , 
trkdPt°c  , 
sa  teniod 


. ft:  ft.  ft:  ft:  ft:  ft:  ft:  ft- ft:  ft: 

ft:  ft:  ft-ft:  ft:  ft:  ft:  5?  ft:  ft:  ft:  ft:  ft:  IS  ft:  ft:  ft:  >1:  ft:  ft:  ft-  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft;  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  ft:  5J:  ft:  ft;  ft:  ft;  ft:  ft:  ft:  ft;  ft:  ft:  ft 

MSLR'!:’/'CT  inru*  ottion  file  ** 

i]i j]:  it  3r  it  i'  i,<  it  i|'  it  :]t  it  it 3];  it  it  it 't  it  't  ;1‘  it  it  it  it  it  it  it  it  ''t  it  3*,=  it  it 't  it  3*/'  3j: it  A  it  3p  it  it  A 

#  it  it  it  3,i  >]'•  A  it  A.- it  > 1 3]:  i~  A- >!« ' t  it  5p  it  it  it  it  3;.'  *t  it  >!•  A  3]:  it  it  it  it  it  #  it  it  >1'  it  it  ip  it  it  3{'  it  it 't  it  it  A'  it  it  it  it  it  it  3]c  3; 

’■s  Ireac  t  - 

"’5  1 r  i  n  i  t  [ r  M  o  [a  b  [4391  ]  ,  da  ta  [ab  [4  18]  ,m  If’]  ,a  i  [P2]  ]  ,ma  n  [a  1 1  ]  ! 
■»  s  1 1  ra  i  ^  , 
pa  t^noi 


»?PE?1D1X  ? 


LINKUP  In  put  Option  Files 

ThP  IMPU'T’  option  direrts  LIN,XPf  to  obtain  further  command 
lino  input  from  a'1  indicated  flip.  This  reduces  the  amount 
of  interactive  tyoin«  npedpd  to  link  various  modules 
together.  In  essence,  the  input  file  is  a  tatoh  file 
scanned  by  LINS86.  For  example,  the  nodules  shown  ir 
C1PS0C.I,'!P  are  linked  with  the  command  :  LINK9R  C1PR0C[I]  , 
idhpro  I  denotes  that  ClPPOr . IMP  contain  thc  actual  fil^s  to 
be  linked.  The  name  appearing  on  the  lefthand  side  nf  tne 
npual  siftr.  in  the  LINX9*  option  files  is  the  name  assigned 
to  the  CVP  module.  Therpfore,  L1\!KCR  CIPROCfl]  orr1uoes  the 
C^D  mod  ule  ClP^nc.rMp.  derails  concern  i  r.<c.  this  ^roceiure  ra,f 
fcp  found  i n  [ Ref .  IF] . 


1PH 


if  ( ( b in  a rv ' bnf fer _u b  ) - 

bi  na  ry  (  b’-  f  f  e  r  lb  )  )  t>=buf  fer_ler#?th )  tnen 

d  o ; 

v  =  add?M  tl  buffer  lb,  one); 
rail  await  ( m I SS I LE. OR PKR_OUT .  «t ) 

end; 

end;  /*  do  i  */ 
end  mslorder! 

TDKRPRT  is  the  main  module  of  a  process  at  Cluster  2 

*  that  simulates  the  con  snmrt.i  o"  of  track:  detection  data 
It  signals  its  consuTotion  >y  advancing  even  to  mint 

*  TfflCK  OUT.  This  module  is  linked  as  shown  in 

*  C2TJSFRS.IUP  or  CPUS  PR  /T  .  I  UP  of  Appendix  F  . 

*  PT./I-H6  Source  File  Uame  :  TRKRPRT  .  PLI 

sir  :|;3;  sji  :|t  s':  !|t  j|: #  3|t  3^  3|:  #  3^  3^  #  :|c  3^  3*  #  s(t  :[t  s[s  jJ:  ^ssj;  3|:  3|:3£s£  .  ■%.  s;s  ,;s# )!:  3* 


t  rkr prt : 


procedure  ; 


%repla  ce 


infinity 

one 


by  32767. 
by  '0001 'b4; 


^include  'sysdpf  .pli 


nvr  i,  Ap-p 


i  fi xed  bin  (16), 
k  bit  (16)  static  init  i'U0P0'b4) 


/*  end  DECLARATION'S  */ 


r^’  a  i  n  *  / 


do  i  -  0  to  infinity; 


k  =  add?bitl6^k,  one); 
call  await  (TP&CK_IU,  k); 

/*  consume  )  ■•'/ 


call  advance  (TPACK_OUT); 
end ;  /t  do  i  */ 

°nd  trkrprt! 


a£  a;t  ic  a|« a|:  *  a;s  a|:  # a;: v  # s|:  s?  if  ifV  *S«a*  afc  if  if  if  ^  —  #  *  >9*  #  :(«  a;c  #  -,'f  if  if. :;: :;:  a|: a;: :;:  a;c  :,;a|:  if.  if  if  if  if  if  if  ;,: 


*  MSLORDER  is  the  main  module  of  a  producirg  process  at 

*  Cluster  2  that  simulates  issuing  missile  orders.  It 

*  signals  the  reTt  iteration  of  missile  orders  b.v 

*  advancing  eventcount  MI  SSI  LE_QRD1:'R  _I  N  .  The  consumer  is 

*  MSLREACT  at  cluster  1.  This  module  is  linked  as  snovn 

*  in  C^US^PS . IN?  o ”  CPUS  EP/T .IMP  in  Appendix  F. 


PL/I -86  Source  File  Name  :  MSLORDER. PLI 
Contained  in  : 

MCOrTFX  Command  Module  Name  :  C2USEE3.CMD 
MXTRfCF  Command  Module  Name  :  C2USER/T.CMD 


“  if.  if  if  if  if  if  if  i‘  ai:  a;-  if  :;t  if  s|:  aj<  if  aj<  if  if  if  ajs  if  #  a’*  a{t  if  a£ a(:  ic  if  a£  a£  a£  if  if  a;:  ;|t  if  a|:  aj:  if  if  if.  if  if  a;:  #  if  a;:  a;:  if 


mslorder:  procedure  * 

^replace 

infinity  by  32767, 

one  by  '0001'b4, 

buf fer_lergth  by  50; 

^include  'sysdef .pli  ' ; 

DVCL e  PF 


i  fixed  bin  (15), 

(k,buffer_ub,buf fer_lb)  bit  (16)* 

/*  end  DECLARATIONS  */ 

/*  main  */ 

do  i  =  0  to  infinity; 

/*  simulation  of  missile  crier  */ 


call  advance 
buffer_ub  = 
put  skipf?) 

buffer  _1 1  = 
put  skipf?) 


(MISS I LF_OP 0EK_I N  )  5 
read 'MISS ILE_CRPER_Ih  ) ; 
edit  ('Eventcount  value  = 
buffer_ub)(a.b4(5))» 
read  ( MI SSILE_ORDER  OUT ) * 
edit  ('Eventcount  value  = 

buffer  1 b ) ( a , h4 ( 5  )  ); 
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if  (^blnarv(bvffer_ub)- 

binaryf  bnffpr_l b)  )>  =  buffer_leri£th)  then 

do; 

k  -  add2bltlP(buffer_lb.one); 
rail  await,  (  TR  ACK_0UT  ,  <); 

end  J 

end ;  /*  do  FOPFVFR  */ 

end  trkdetert; 


#  if  #  *0^  #  #  j(o;:  #  &  Jp  #  #  #  #  #  #  j;-  ^  if j;;  ;,£  Xf  if  *:  if  3,1: if 

C2UINIT  is  the  initialization  module  for  the  Cluster  2  * 

*  processes  that  are  multiplexed  or  SBC  2.  This  module  is  * 

*  linked  as  shown  in  C2USFRS.INP  or  C2USER/T.INP  in  * 

*  ‘ppendix  F.  * 

£  £ 

*  PL/I-96  Source  File  :  C2U I N  IT .  PLI  * 

£  £ 


##*#*£>{<#  ££££££££££££££££££££*£  £  £  £  £  £  £  £  £  £  £  *  *  £  £  *  £  £ £  £  £  £ £  V  £  £  £  £  £  £  £ 


r2_users_init  :  procedure  options  (main); 
^include  'sysdef . nli  ' ; 


/*  be^in  */ 


/*  missile  order  */ 
call  create_nroc  "03'b4,  'fc'D4, 

'0920'b4,  '{*6ff'b4,  'CC29'b4, 
'0439'b4,  '06ff'b4,  'P6ff'b4); 


rail  create_proc  '04'b4f  'fc'b4, 

'C*940'b4.  '06ff'b4,  'P0de'h4, 
'0439 '  b4  ,  'P!fiff'b4,  '0fiff'b4)J 
rail  await  ('f»'b4,  '01'b4)» 


end  c2  users  irit; 


s;:  #  if  sjc  if  £  if  *  if  if  *  $  #  $  if  #  if  #  <«  if  t-  5?  sjc  tf  V  >.'  *: :;:  if  jf:  #  #  *  #  if  if  if  if  s|t  5):  * if  if  if  ^  if  if  if  if  s?  if  if  if  >1= 

*  TRKDFTECT  is  the  main  module  of  a  producing  process  * 

*  that  simulates  the  detection  ef  tracks  (air  contacts)  * 

*  and  advances  eventcount  TRACK_IN  to  signal  that  the  * 

*  next  iteration  of  track  data  is  available.  Th°  consumer  * 

*  process  is  TRKRPRT,  located  at  Cluster  2.  This  module  * 

*  is  linked  as  shown  in  TRACKF^  .  IMP  or  TRKFR/T .  I  NP  of  * 

*  Append i x  v .  * 

*  MCORTFX  Command  Module  Name  :  TRACKER. CMT  * 

*  MXTRACE  Command  Module  Name  r  TRKER/T.CMD  * 

if  * 

if  *f  i:  #  s{s  #if  if  if  i:if  if  a|t  *  if  if  if  if  if  sfc  if  if  if  if  if  if  if#  if  if  if  H  ififififif  if  if  s|:  if  if  if  >f  sjs #  if  if  *  *  W  V  if  if  if  if  if  if 


trkdetect : 


procedure  ; 


^replace 


FOREVER  by  'l'b, 

one  by  '0OO1 / b4 , 

buf f er_length  by  50? 


^include  'sysdef .pli 


DECLARE 


i  fixed  bin  (15), 

( k , buff er_ub , buff er_l  b )  bit  (16); 


/*  end  DECLARATIONS  */ 


/#  main  */ 


do  1  =  0  to  32000; 


/#  simulation  of  track  input  data*/ 

/'■'  Inout  from  real-time  sensor  here  */ 


call  advance  fTRACK_IN); 

buffer_ub  =  read ( TP4CK_IN  ) ; 

put  skip'2)  edit  ('Eventcount  value  = 

buffer_ub ) 'a  ,t4(5  ) ) I 
huf fer_l b  =  read  (TRACK_0UT); 
put  skipf?)  edit  ('Eventcount  value  = 

buffer  lb  )  (a , b4 ( 5  ) ) » 


i  f i x  °d  5 1 n  (15). 

w-  bit  16)  statin  in  it  ('van?-'  b4 ) ; 

/*  end  D^CL*  F  ANION'S  */ 

/*  pair  */ 

do  i  -  0  to  Infinity; 

k  -  add2bitl6'k,  one); 

call  await  (  MTSSILE_ORDFR_IN  ,  k  )  • 

/*  consume  '  )  / 

nail  advance  ( PI  S  S  I  LF_OF  !)2&_OUT  )  J 

end;  '*  do  1  */ 
end  msltrair; 


##  £  $  jjt  *  tf  $  X*  *  #>!<  **  #  #  *  *  #  *  #  #  *  Sr  #  ^  3{t  5{t  s;s  X'  *  lie#*#*##*# 

*  TRKPINIT  is  the  initialization  nodule  for  the  process  * 

*  TFACKFF  ( CMD  filename).  Tt  is  linked  as  shown  ir  * 

*  TRACKER. IN?  or  TRKFR/T.INP  of  Appendix  F.  * 

*  * 

*  PL/I -86  Source  File  Name  ;  TRKDINIT.PLI  * 

#  * 

VJp  #¥!{«*  SC-  ###*  >1'##  SX**#  Irffiif.  $$$$$  if.  X!X<X«X!  X«X«*!«X«  X‘X*  XtfcX5# 


trkdinit:  orocedure  notions  (main); 

^include  'sysdef  .  oli  '; 


/*  be  pin  */ 

rail  create  proc  ('01'b4,  'fc'b4, 

'090vl'b4,  'W6ff'b4,  '0023  'b4, 

'(*439  '  b4  ,  '06ff'b4,  '(*6ff'b4)J 
call  await  ('fe'b4,  'Pl'M); 

end  trkdinit; 


llc 


si-  $  &  if  *  if  £  sjt s*  *  *:  ije  *  *  *  jj:  if  if  *  if  i,-.  #  if  >;t  if  if  if  *  *  sjt £  *  #  if  *:  if  #  V  *  tf  H 


MSLTINIT  is  the  initialization  module  for  tne  process 

*  that,  simulates  the  training  of  a  missile  la  arc  her  as 

*  a  result  of  orders  receive!  from  fhe  MSLO"DFT-‘  process 

*  of  Cluster  2.  This  module  is  link?!  as  shown  in 

*  M  S  L  P  ?  11 C  T  .IN'?  or  LAUNCU'T.INP  in  Appendix  F. 


*  PL/I-86  Source  File  Name  :  MSLTINIT. PLI 


**###*#*#£***$**#*##**#*#* tf*####***##**###**  %**#*#*% 


msltinit:  procedure  options  (main); 

%include  'sysdef . pi i  ' 5 


/-■'  begin  */ 

call  create_proc  ('02'b4,  'fc'b4, 

'0600 't4,  '04d8'fc4,  '0023 'b4, 
'0439'b4,  '?4d8'b4,  '04dd'b4); 
call  await.  C'fe'b4,  '01'b4); 

end  msltinit; 

*  if  if  if  Sift##**  *  a;:  if  if  if  if  if  if  if  if  if  **  jjs «  #  $  <s # Jf:  #»jc  if  s>c  £  sjt  if  #  #  £5*  *  if  #  *  *  *: «  « *  j;:  jfc  if  5;:  a; 

*  MSLTRAIN  is  the  main  module  of  a  process  that  ’’responds’ 

*  to  commands  issued  hy  MSLOPD^P.  It  is  a  consumer  of 

*  missile  orders.  It  signals  its  use  of  a  command  by 

*  advancing  distributed  eventcount  MISSILE  ORDER  OUT. 

*  It  is  linked  as  s*own  In  MSLPEACT.INP  or~LAUNCH/T.  INP 

*  of  Appendix  F. 

*  PL/I-86  Source  File  Na«e  •  MSLTRA I N . PLI 

-  MCORTEX  Command  Module  Name  :  MSLREACT.CMD 

*  MXTD ACF  Command  Module  Name  :  UUNCF/T.CMD 


if  *  Jji  s|:  j;:  #  ^  #  >!<  j;t  if  if  1;  V  if  i<  #  *!'  #  ’I-  ^  ;V  if  if  if.  if  if  if  it  if  if  if  ?|!  iV.  si:  5;:  J,: if  r|:  5; 


ms  It  ra i n  : 


procedure  ; 
f replace 

infinity 

one 


by  32767, 
by  '0001 'b4J 


^include  'sysdef .pli  '; 


Beth  Clustnr’s  -  therp  is  no  actual  compu  ta  t  i  on  s  b°ir/r 
dore  by  ary  MCOi-TRX  process,  so  Ethernet  Keenest  Packets  ard 
Ethernet  Packets  are  bei  generated  at,  the  fastest  pcssi  b] £- 
rate.  Any  possible  timing  problems  would  be  exp^sea  by  this 
demonstration  process.  None  were  noted,  and  tr.e  processes 
performed  as  expected. 

Tbe  system  console  shown  in  ^i;?ure  11  is  us°d  to  monitor 
using  DDTPfi )  changes  in  GLOBAL  data  and  shared  re-cry 
structures.  A  process  that  automat ical ly  provides  diagnostic 
and  display  supoort  is  under  development  for  nTC  STAB.  This 
rrocess  will  execute  under  CP/'d-Pfi  on  single  board  computer 
1  in  each  cluster.  Sourc°  code  for  the  demonstration  model, 
except  fon  TinkP6  input  option  files  and  the  NI3013  Driver, 
follows.  The  input  option  files  and  MI 30 13  Driver  are 
contained  in  Appendices  E  and  Y  respectively. 


Ethernet 


SBC  I  SBC  2  SBC  3 

CLUSTER  1 


FIGURE  11  -  Demonstration  Model 


‘PPENDIX  F 


rFMPNST«ATIO^  SOURCE  COP_E 

The  model  of  processes  that  demonstrates  the 

distritutivit y  of  ^CORTEX  over  Eth°rnet  is  illustrated  i  r. 
Figure  11.  The  interactions  that  are  occurring  at  each 
cluster  are  as  follows. 

Cluster  1  -  The  KSLFF»CT  (missile  launcher  reaction) 
process  and.  TRACKER  (target  tracking)  process  get  a  ticket 
through  the  kernel  (SYSTEMIC)  to  write  to  t>e  Etoernet 
Reauest  Block.  This  corresponds  to  user  transparent 

simul tareous  reauests  for  Ethernet  access.  The  NlZylf  Driver 
and  Packet  Processor  is  orocessing  Ethernet  Reauest  Packets 
and  Ethernet  packets.  Jll  processes  are  competing  for  access 
to  GLOBAL  data  via  the  kernel. 

Cluster  2  -  the  J*SL0PPEF  (generates  missile  orders)  ard 
TRKRPRT  track  reporting)  processes  are  multiplexed  on  ^ne 
r^al  processor  and  ar°  scheduled  and  Mocked  Based  or  the 
interaction  wit>  the  Cluster  1  processes.  The  si  1 13  1  (•'  Driver 
ard  Packet  Processor  performs  the  same  function  as  that  in 
Cluster  1.  The  code  is  identical  with  the  exception  of  toe 
i n it lal i za t i on  module.  Recall  that  this  module  in  each 
cluster  is  responsible  for  the  creation  of  evertcourts  and 
seauencers,  as  well  as  calls  to  PEFINE$CL'JST  IK  and 
PISTFIRUTIOMMfP,  which  ar°  cluster  and  even  tc our.  t. -dependent. 


distribution  of)  procedure 


MOV  M,t  DISTRIBUTION  M *  P _ T M D 

PUSH  AX  '  JN  DISTRIB  MAP_IND 

PUSH  AX  J  3  YT  <—  UNUSED  a'C^D 

PUSH  AX  ttfORD  <--  UNUSED  WORD 

PUSH  SS  ;VAP_PTR_SFG  <—  ss 

PUSH  CX  ;M*P  PTP_OFFSET  < —  D*?*  PTT 

CALLF  G  AT  EEPRR 

ADD  SP,  4 

POP  FS 

RFT 


S***  ADD23I T16  ***  APD2RIT16  ***  ADD23IT16  ***  *DI52BIT16  **/ 
ADD2BIT16: 

MOV  S I  ,  C  BX 1  SSI  <—  PTR  TO  BITfl6)#l 

MOV  BX,2fPXT  JBX  <—  PTR  TO  BIT(16)*2 

mov  fx,[bx]  ;bx  <—  BiT(ie)#2 

ADD  BX.fSIl  ;BX  <—  BITflfi)#!  +  BIT(16)#2 


POP  ES 


RET 

;  PREEMPT  PREEMPT  ***  PREEMPT  P-EEMPT 

PREEMPT : 


PUSH  ES 

MOV  BX, [BXl 

MOV  AL ,  ?REFMPT  INI) 

PUSH  AX 

MOV  AL,  [BXl 

PUSH  AX 

PUSH  AX 

PUSH  AX 

PUSH  AX 

CALIF  3ATFKFFPFR 
POP  ES 


JBX  <—  PTR  TO  NAME  OF  PROCESS 

IN  <--  PREEMPT  INDICATER 

JBYTE  <--  PREEMPT  PHOCFSS  NAME 
JWORDS  <—  UNUSED  WORD 
JPTR  SEG  UNUSED  a  OLD 
J PTP~  OFFSET  < —  UNUSED  WORD 


BET 


J***  DFEI  NF_CLUSTFR  ***  DFFI  NF_C  LUSTER  *** 

DEFI NE_CLUSTER : 

PUSH  ES 

MOV 

BX,  fBXl 

JBX  <—  PTE  TO  LOCAL$CLUSTEh$ADPR 

MOV 

AL,  DEFINE  CLUSTER  IND 

PUSH 

AX 

JN  <—  DFETNE  CLUSTER  IND 

PUSH 

AX 

J  BYT  <—  UNUSED  WORD 

PUSH 

WORD  PTR  [BX] 

JWORDS  < —  LOC AL$CI.USTER$ ADDR 

PUSH 

AX 

JPTF  SEG  <~  UNUSED  WORD 

PUSH 

AX 

JPTP_OFFSFT  < —  UNUSED  WORD 

CALLF 

POP 

PET 

'  GATEKEEPER 

FS 

J  *r 

DISTRIBUTION 

_M  A  ?  ***  DI  STRIBUTON_MAP  ** * 

riSTRIBUTION_M*P: 

PUS" 

ES 

MOV 

SI,  4 [?Xl 

;  s  i  <— 

PTR  TO  GROUP  ADDRESS 

PUSH 

WORD  PTR  [SIl 

;  s  T  A  CK 

THF  GPOIJP  ADDRESS 

MOV 

SI,  ?  [BX  ] 

;  s  i  <— 

PTR  TO  ID  OF  MAP_TYP F 

MOV 

AH,  [SIl 

MOV 

SI,  [BXl 

JST  <  — 

PTR  TO  MAP  'TYPE 

MOV 

al,  rsu 

jal  < — 

MAP  TYPE 

PUSH 

AX 

JSTACK 

IT  AND  MAP  TIPS 

MOV 

rx,  sp 

J POINTER  TO  DATA 

109 


;***  READ  ***  REAP  ***  READ  ***  READ  ***  RF*D  ***  HESD  »****/ 


RE  *D  : 


PUSH  ES 
PUSH  ES 
MOV  CX.SP 
MOV  BX,[3X] 

MOV  AL.PEAD  I  NT» 

PUSH  AX 

MOV  AL, [BXl 

PUSH  AX 

PUSW  AX 

PUSH  SS 

PUSH  CX 

CALL?  GATEKEEPER 
POP  3X 
POP  ES 


J  EVENT  COUNT  DUMMY  STORAGE 
J  POINTER  TO  EVENT  COUNT 
JBX  <—  PTR  TO  EVENT  NAME 

!N  <--  READ  INDICATER 

JBYT  <~  EVAN?  NAME 

JBYT  <--  UNUSED  WORD 

JPTH  SEC,  <--  EVENT  COUNT  SEGMENT 

JPTD[  OFFSET  < —  EVENT  COUNT  POINTF: 

JRETRIEVR  EVENT  COUNT 


J***  CREATE  PROC  ***  CREATE  PROC  ***  CREATE  PROC  *#*##****#/ 


CREATE  PFOC  : 


PUSH  ES 
MOV  SI , 14 [BXl 
PUSH  WORD  FTP  [SH 
MOV  SI ,12[EX] 

PUSH  WORD  PTP  rSIl 
MOV  SI,  10  [PX] 

PUSH  WORD  PTR  [SI] 
MOV  SI,  8  [BX] 

PUSH  WORD  PTR  [SI] 
MCV  SI,  6 [BX] 

PUSH  WORD  PTP  rsi] 
MOV  SI,  4 [ P X ] 

PUSH  WORD  PTD  [SI] 
MOV  SI ,2f BXl 
*OV  AH, [SI] 

MOV  SI , [BX] 

MOV  A L  ,  [SI] 

PUSH  AX 
MOV  CX.SP 

MOV  AL , CHE  A TF  PFOC 

PUSH  AX 

PUSH  AX 

PUSH  AX 

PUSH  SS 

PUSH  CX 

CALLF  GATFKEEPEK 
«DD  SP , 14 


ts  I  <~  PTR  TO  PROCESS  ES 

•STACK  PFOCFSS  ES 

;  S I  <—  ’TR  TO  PROCESS  DS 

•STACK  PROCESS  DS 

JSI  <—  PTR  TO  PROCESS  CS 

5STACK  PROCESS  CS 

JSI  PTP  TO  PROCESS  IP 

JSTACK  ^ROCFSS  IP 

JSI  <--  PTR  TO  PROCESS  SS 

JSTACK  PrOCESS  SS 

JSI  <—  PTR  TO  PROCESS  SP 

JSTACK  PROCESS  SP 

JSI  < —  PTR  to  PROCESS  PRIORI?! 

JGET  PROCESS  PRIORITY 

JSI  <—  i=TR  TO  PROCESS  ID 

JUFT  PROCESS  ID 

JSTACK  PROCESS  PRIORITY  AND  ID 
J  POI NTED  TO  DATA 

IND 

JN  <—  CREATE  PROCESS  IND 

JBYT  <—  UNUSED  WORD 

JWOPDS  UNUSED  WORD 

JPPOC  PTF  SEGMENT  <—  STACK  SEG 

JPROC_PTR  OFFSET  <—  DATA  POINTER 

J  HFMOVE  ST  8 CKED  DATA 


10P 


if  V  3;:  3|s  s;c if  if  s;s  if  3;;  3;: 3"  s?  sjs  if  3;:  si;  j;;  3;:  <:  3):  if  if  if  if  si:  if  #  sjc  If  if  if.  if  if  s;t  3|:  if  f.  if 3,: 3|t if  3;:  3;:  3^  3?  if  if  if  if  if  s;:  3^  if 

3|-  3^  if  if  3,;  >^:  ^  ^  if  3;:  i:  if  sj:  #  #  34=  if-  3(:  ##  s(t  si:  if  if  if  if  if-  if  3|'.  *  if  if  3|:  if  if  if  if  ’I'-  if  if  if  if  if  if  if  if  if  if  >f  s;-.  3;:  3;-. 

***  C2PR0C  input  option  file  *** 

*!'  5jf  v  v  •!»  v  v  '«*  *i-  ^  5|«  v  v  ^  *!"  'i*  v  v  5,'  v  Jrv  *i'  *i"  *r  W  3{^  •>*  Jj?  3jC  Jp  ?,*  v  'i*  5^  *»'  *i  -  ^  v  'I'  n*  V  V  *r  v  'i*  »i*  ••  'i ■  '■■ 

>;«  5,  >r  5;:  i|;  >  i  5|;  r?  s£  :,t  5;:  ^5  5 : :  :  #  $  :Jc  ajc  j;?  #  5}r  #  #  #  #  #  3};  #  #  #  #  #  >;c  #  ?;c #  *  *  #  *  *  * 


c2proc  = 


sysinit2  [code  [a b  [43911  .data  [ab  [P00-]  ,  m  [0  ]  ,ad  [  Q2 1J  , ma  p  Ta  1 1  ]  J  , 
sy sdev , 
asrnr  out  , 
ra  temod 


3;:  3l;  if  if  if  if  if  if  *c  if  if  if  if  3;:  s,t  if  *  3^  if  jjt  !<:  *:  if  if  3^  a}e  if  if  *.  if  if  if  #  sjt  3*  if  if  if  if  3*  #  if  if  s|:  3j:  3*  if  ii  if  if  s;.  if  sj:  s|:  if  3?  3*  3;:  s;: 

3{;  if  if if  if  if  if  if  3;;  3|;  if  3;- 3;;  sits;:  stss^^sje  s’,;  shiest:  sj:#:;:  sjc  slcsj;  sfcs;:  if  if  if  if  if:  3;:  3}:;^  s^s;: i,;  if  if  if  3|:s;:s;:s;:s^3i:  if  if 

***  C 2 U S 5 ?. S  input  option  file  *** 

sf:  if  :;•  if  s':  if  if  if  if  y,:  sj:  if  if  if  sj:  3f-  s;:  sjt  3,t  j|:  3;:  if  if  sf:  i-.  if  sj:  3|:  3{: :(:  £  3*  3^  >[c  if  if  if  if  if  if  ifififififififififif.ifififif.ififif 

if  if  i/i,  :;:  :',:s;c:;:  if  if  if  if  if  if  3'.:  if  3|:  :V  ^  i:  #  ^  3jt  :;•. 3;:  3|:  if  sj:  s|:  if  s’,:  if  if  if  if  if-  if  if  if  i-ifififif 

c2users  = 

c2uini  t  [code[abr439]]  ,data[ab[6ffl  ,^(0]  ,ad[P2T  I  ,  map  f  a]  1 1  I  , 
ms  1 o  rde  r  , 
t  rkrrrt , 
sa  temod 

3J:3|:  3^3^  3|:  if  3;:  3|c  f:  3^  3;:  V  3;:  - ;  j; :  s;«  3;  ^  ;;e  if  if  if  if  if  if  if  if  if  s^  s;t  s;:  sjt  sj:  3[£  3^3{(3^i^3^3;:  it  if  i,-.  if  s;t3?s^3^>^  3Jt3^3|i  3f:s;:3,t  3|t  s;.-  if  if  if 
if  if  i'i:  ifif  if  ifif  if  if  ific  if  iiif  if  if  if  ififif  ifif  if  if  ifif  if  if  ififif.ifif.if  if  if  if  it  sjs  3^  r;s  sjc  if  3;: sjc  if  s^- if 

*#*  NXT’RACF  input  option  file 

if  if  s^3}:3^3^3;:3|:3^3^3;:3^3;' v.3!:3,<3^^3^^3^V*3|<3f:3i:3^3;:3;:3^;^3i:3^3^^<3;:>^3j:sjc^3j:3^3^3^^«3^:,:3|:3;:3,':3^:::3^3^3^3^;^^:^ 

y,5S',«  y,:s;s  Sfif  i f  if  Jjt  if  if  if  if  if  i,.  if  if  if  if  if  if  if  if  if  if  s;:  s'.:  if  if  =;<  3;:  if  if  if  if  if  if  if  if  if  if  if  3|c  if  if  if  if  if  if  if  if  if #  if  s;s  3|:  if 

'iXTyi.CF  =  TFX/TkC  fcodefab  f  A6d  1  .data  [ab  I.ABC1  11 

if  if  s;i  s!:  if :f i.i  if  3|:  if  i,l  if  3|t  if  3;:  3;:  3':^  i:  3;:  sj:  3'c  if  if  3js  3^  if  *  if  if  if  if  sj:  3l:  if  3^  if  s|: s;-.  3;:  3;:  if  3|:  sj;  s;:  3^  3^  3;:  if 

if  i,  •  3f:  if  ii  s,-:  3p  3[:  aj:  3|:  if  3|:  3;:  sj;  3J:  3.:  3]:  if  if  if  ii  if  i-  s{:  if  if  3j«  if  s;:  3(c  3^  3£  ^  #  3jc  3je  if  #  if  3,*  s^  if  3^  s^  if  if  if  !|c  sj:  if  if  s^  >|:  s^  if 

***  C1PROC/T  inDut  option  file  **# 

i',  if  i  f if  if  3;:  s’,:  3^  3^  if  j;-.  3;  .  if  if.  if  if  s£ if  if  if if  3’,:  if  if  if  if  if  if  if  if  if  3',-.  if  s',:  if  3',:  >;•-  3;:  3;:  s',: if  if  if  If  if  if  3;:  i: 

if  if  3.:^:  3,.-  3,:  sj;  if  if  if  if  if  if  -,;s;:3^  s;:  3|:  3;:  #  3^  3|;  3^^  3^  3^  X' sj:  ^  3}:  3^  s|t  s;c  3|:  if  if  3^  s^  if  3|: 3|:  ^  sjcs;;  if  if  if  ^  if  3^  3|:  3^ 


clproc/t  •- 

sysinitl  [coderabr439ll  ,datafab[H0  0]  ,m[0l  ,ad  [P2]  ]  .mapTall 
sysdev , 
asrnr out , 
ea  t,  p  t.  r  r 
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#  j|: jJ:  s£  j;c  afc  s[:  t;,  #  s;c  ;,:  ?;;  y,-  i;  #  jjs  s*<  jjc  #  >,r  *  j :  i|:  3,; ^ ;,c  v  3/. s.c :,:  v  ;.c 

TPXF'/T  input  option  file 

tic  5;:  sit  s;c  *:  if sj:  J|:  V  if  f  V  :l'  ^  if  if  *  ■?  if  »!■  #  2,t  V  *  #  £  3,c  *  if  if  if  *1-  >i:  =r  -f-  if-  if- if- if  if 
sjc  .It  s,V  if  s?  .'•  if  if--,  -'f  tjcsj.'  it  it  if  i  sf.  if if  if  3.V  :f  if  if  if  if  if  i'.  i  if  if  sj.  if  if-  if  if  if  if  if  if  *  i. :  i.  ■ 


if  >f 

»«■  'r  O  '  V-  •!*  *i*  V  V  O' 

if  if  in.  if  if  X  if  i,:  if 


trkPr/t  = 

trkiinit  [c  od  e  [a  t  [439]  ],data[ab[6ff]  ,  m  [0]  ,ai [92] ]  ,ma  d  Tal  1 1  1  , 
trkdetec  , 
pa te  t  re 


if  if : if  if  if  if tf  s;t  s;t  ff  sic  it  if  sit  if  3j.  j|;  sjt  if  if  if  if  i<  »jc  if  if  if  s;t  if  s',:  if  if-  if  if  sit  if  si-  &  if  s^  if  sic  si  =1:  *  tie  s;c  if  if  sic  £ sic  if 

if  5|:  if  if  if  if  s;c  it  *  sjc  #  s£  if  if  if  if  sjt  if  if  if  if  if  if  if  if  if  if if  if  if if  sjc  sit  s£  3jt  sjc  sit  sjt  sjt  sjt  3£  3jc  sjt  sjt  sjt  s*c  3^ ;ic  if  if  sj:  if  s;t  3?  if  if  3;:  if  if  i< 

***  LAUNCH/T  input  option  file  *** 

*  if  if  if  if  3',:  *  3;; *  s-:  if  if  if  it  if  if  if  it  s',c  :^3|;  if si:  >;c  if  sit  if  if  3|:  3;-:  if  if  3|i  3|:  if  3;:  if  3',:  if s;t  3;:  if  if  if  3;!  3;:  sic  if  s if  if  sit  s;:  if  if 

if  if  if  3;:  if  if  it  if  it  if  if  s;t  sjt  if  if  if  if  sic  if  3;:  *  if  it  sjt  3*  sit  Jjs  3^.  sj:  if.  sis  if  *  it  y.c  it  Vifif  s'.:  if  if  if  it  it  if  if  s;;  s,c  3;;  if  3;-.  if  3?  if  3;:  if  it  3,: 


launch/t  = 

nisltinit  [code  [a b  [439]  1  ,MTA[AB[4d6]  ,  M  f0]  , AD  [82  ]]  ,ma  o  [a  1 1  ]]  , 
ms  1 1  rai  n  , 

^atetre 


s;c  3?  3,c  si:  3ic  3;:  3J:  if  if  if  it  Si:  3;;  3::  ct,.- s'.:  3;:  sj: sf:  3;:  sjc  3*  3^  3i:  3?  :jc  s£  3^  sj:  s|:  3;:  s','.  3^  3^  3^  3?  3^  3?,;  3^  3;:  s;:  3^  if  3*  3;:  3;:  3?  3?  3;:  3;:  3;:  3^  3^  3|<  3;;  s''  3^ 
3^ 1 :  if  *  s|:  3|:  3;:  3;;  i,t  it  if  ••',!  3,';  3|<  si:  s;:  s;<  sjs if  3;:  3*  if  it  it  3;:  if  #  3;;  3|;  3j:  sj;  sjt  3;s  if  if  3;:  3;;  if  if  3;:  sjc  if  if  if  if  if  if  if  if  if  s;-.  3;:  if  sit  if  if  if  si: 

***  C2PH0C/T  input  option  file  *** 

3i:  3lt  sis  if  if  if  if  if  if  if  if  if  s;- ;;;  s>t  s;s  3^  jjc  s{-  3-e  sj;  sjt  sjt  sit  s^  s'.;  sjt  j*t  sjt  3;-.  3jt  sit  sjt  sjc  s}:  s^  if  if  if  if  v  if  if  if  ififififif  if  if  if  if  *1:  s;t  s;t  sit  if 
if  sjt  3;.  if  :It  3lt  s;-  Sit  3lt  Sit  s^  s;:  3',s  it  si;  3^  sjt  s;t  if  if  :;t  s^  if  if  if  s;c  if  si:  3js  sit  si'  3^  s;t  sit  s;t  sit  sit  sit  sit  s;t  3;:  sit  tit  s;t  sit  s;t  tit  .;t  si-  Sit  Sit  sit  sit  s;t  Sit  s;t  Sit  sit  if  s;t 


c2proc/t  - 

sy?init2  [coie[ab  [439]  ],iata[ab[8^0]  ,m[0]  ,ad[&21J,,T'ap[alll], 
sy sd  pv  , 
as"irout  , 

^a  te  tre 

s;t  sjt  Sit  if  31;  s.'t  sjt  s^  s’/  if.  if  s;t  >|t  s;t  s;-.  s*t  sit  3jt  3,'t  3Jt  3jt  j(t  s)t  sit  sit  s,t  sft  sjt  sjt  sjt  sjc  sic  Sit  3lt  if  sjt  sjc  if  3 It  if  sjt  sjt  sjc  s^  sjt  s;t  s;t  s;t  s;t  s;:  sit  s;t  s;t  s;t  if  sit  s,t 
3l:<t  3,;  Sit  Sltsjt  sjts^sltslt  if  if  if  3^  s;t  s;t  3{t  sit  sit  s;t  Sit  3}t  ^t  sltslt  sltslt  s^  s^  31:  s;t  Sit <ts;-3;t  sltsjtsit  sjt  sit  sjt  sjt  sit  sjt  sjt  sjt  yjc  s,t  s,t  sjt  s,c  sjt  sjt  3(t3i:tlt 

C2USFH/T  input  option  file  !|- 

s;t  if  1,:  if  if  if  it  if  if  if  if  if  if.  if  1  f  it  if  if  it  if  it  ?f  it  if  if  if  if  if  i-  if  sic  if  it  if  it  if  s;t  s;t  it  if  it  if.  if  if  if  if  if  t;.  if  s;c  s;t  if  #  if  if  if  v 
1.1 3;-.  if if  if  if.  if  :,:s;:  ^t  si:  si:  3,.  sjc  sit  if  sit  :f  if  sjt  sit  if  if  sjt  sjt  s;t  3{t  sjt  ^t  sj:  sjc  sjt  s{t  3(t  3,‘t  >;t  sjt  s;t  >;t  3;--  sjt  s;t  3?  3^  3^  sit  3^  3l :  sit  sjt  s;t  sit  sjt  sjt  sit  3;:  sjt : 


c2”ser/t  = 

c2ui  ni  t  [code  [ab  1 4.591 1  ,ia  ta  [a  b  [6f  f  ]  ,  n  [e]  ,  ad  [92  I  J  ,na p  [ al  ll  J  , 
ms  1  c  rd  e  r  , 
t  r  k  r  p  r  t , 
pa te  t  r r 


1 2. '5 


APPENDIX  G 


LEVEL  II  MCORT«*X  SOURCE  CODE 


The  LEVEL  II  source  code,  written  in  PL/M-P6,  is 
contained  in  file  LEVEL2.SFC.  Due  to  the  conditional 
compilation  switches  contained  in  the  cole,  it  should  ce 
compiled  for  either  the  NCOFTEX  version  or  MXToACE  version. 
Piles  are  provided  to  he  used  with  the  SUBMIT  utility  r  P  e  f* . 
191.  The  MCOFTEX  version  of  LEVEL  II  is  compiled  oy  usin^T 
the  SUBMIT  file  L2CMPM.CSD  ( LEVELS  compile,  MCORTTX).  LEVEL 
II  is  one  of  the  relocatable  cede  modules  shown  in  the 
SUBMIT  file  LNKKM.CSD,  which  is  used  to  lir.it  the  modules 
toge:h°r  for  KORE.CPS.  After  linkir*,  the  resultant  file 
must  he  located  us  in*  the  LOGS*  utility.  This  is  provided 
for  in  the  SUBMIT  file  LOCEM.CSD  (locate  MCORTEX).  The  file 
KOBE  is  created  and  becomes  KOBE. OPS  after  transfer  to  the 
mult,  i-user  CP/M-P6  system.  KOBE. OPS  is  loaded  by  MCO.-TEX.CMD 
under  the  CP/M-86  operating  system.  Memory  maos  for  KORF.OPS 
and  KOBE. TEC  are  provided  at  the  end  of  Appendix  H.  The  map 
information  oo^es  from  K0FE.MP2  aftpr  compiling,  linking, 
and  locating  t. he  applicable  files. 

In  the  source  listing  for  LFVFL2 .S  RC  ,  the  executable  code 
must  begin  in  column  7  ^see  L2CMPM.CST).  It  appears  left 
dustified  in  this  listing  due  to  thesis  format,  rea  ui  remen  t  s . 


A  Af ,'f :  1 5'.; it  A-  if 
A'  Af  >;  >!•  If  Af  V  V  a,.  A,- 
V  '-t  ’’t 

if  A:  A;  *  Af 

r|t  A-  -  ■A-  :f  At  #  #  A-  Af  AfAfAf 


Af  Af  s;s  Af  *  Af  +  *  j;:  it  >!(  At  Af  Af  >“  Af  A:  if  if  if  A:  if Af A-  if  i.  it 

.  s'. :  a|i  5|:  Af  s[t  AftfAfit  v  Af  <:  Af  if  Af  Af  Af  y,t  :f  j;: AfifAf  A-AtifAflf  V  Af  Af 

SUPM1T  file  L2CMPM.CSD  ***' 

Y,.  s> 3/  5/  sjt  v  Y,:  s',-  >;«  Y,z  sjt  5;:  3|t  >;?  Yfi #  3|:  >1-  *S  3|c  A'  A'  ^  A-  tr  #  A'  s;«  5;: j.<  i[-  A' 

yt:  Yf.  rt  y?  # s;t  Y'  3;:  yjl  j;?  >;c  >;«  #  #  j;-  3*  3;;  #  #  j;c  ^  3j<  >jc  3{c  3,1*  :jc  a;-,  v,  #  y,<  #  3;:  3;?  3^  3*  ya  #  3;:  5r  ^  3^  # 


:  FI :  PLM86  :  K1  : LFVEL2 . SHC  SFT  (MCOHTEX  )  NOCOND  LEFTMAR  GI  K{'7 ) 

LARGE 


Af  V  ’I"’!'  if  *  Af  A:  if  Af Af  At  At  tf  At  s*  At  tt  #  Af  Aft^  At  At^t  At  AfAfAf  At  AfAfAf  At  AfAtAftiti,:  >J{s;<  Afif  At  if  )(o(c  it  *c  v 

At  Af  At#  W#>!:s;:>}^!{t*#v#>7  5!t*  $£#*❖*#**#*  **#5*  AfAf^trAfAfAfAt  *!>.# 

SUBMIT  file  L2CMPT.C5L  *** 

*•.  •:  ii  Yf  i:  V  >:«  *:  3,:  #  :;t  >,? 3^  3;:  >js  ^  3 ;;  3;;  ^  ^  3;c  yz  3^  y.z  3;^  y,<  y,z  >;«  #  3;:  3^  #  3^  a;«  >;r  3,;  Y:  # 

A'  Yr  >»<  3»'  3ji  3i«  ^  3j*  ^  sjs  :,t  3{t  3|c  ?t:  Y)L  5^  v  3^:^  r,c  5^  3^  3^  3;:  2jt  3;:  Yji  3;c  Y,t  Yfi  Yfi  ajc  :;:  a£  sjc  3^:  V  3;:  #  sjc  3|-'  3^  >*,. 


:  FI : PLVP6  :  FI  :LEVEL2 .SRC  RESET • MCCRT  EX  )  NfCOMD  LEFTM ArG I N ( ? » 

LARGS 


125 


/  if  #  s':  if  *  if  V  * *  <s  :':  *  *  <•  *  ::;:  :,t  >;■  *  *  :|:  ifif  «  #  s’:  if  *  *  if  if  if  •-:-.  :|:  *  s:  * :;• *  if  if  if  if  if  / 

/if  if  if  if  if  if  if  if  if  if  .f  if if  if  *:  if  if  #>;:*:#  if  if  if  if  sf  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  s;t  if  if  it  if  if  ft  if  if  / 

j  if  if  if  if  if  j;  if  s;-.  ^  ^  V  ^  +  Jj:  jjt  ^  Jjt  #  v  >[t  v  if  s,*-  #  if  ❖  if  if  if  #  if  K-  if  if  if  it-  V  if  '-f'-fif  V  / 


/*  ^iLV: 

VERS ION : 
PROCEDURES 
DEF I  'JET : 


L  FV  FL2  .SRC 
BREWED  8-18-84 

GA  TE^K  FVPE3 
READ 
ADVANCE 
TICKFT 

DEEI NF$CLUSTEK 

OUTiCHAR 

OUTSNUM 

SENPACHAR 

RFC V$CH  *  R 

I N  $  NUM 

IN  $H?X 


CR  EAT E$  EVC 

AWAIT 

PREEMT 

CREATF$PROC 

DI STRI BUT ION$MA  P 

OUT  $L I N E 

OUTSDNUM 

OUT$HEX 

I  N  $  C  R  A  F 

I N$DNUM 


REMARKS:  !!'  CAUTION  I ! !  !!!  CAUTION  !!!  !!'  CAUTION!!! 

IF  NEW  US FR  SFRVICES  ARE  ADDED  TO  THIS  MODULE 
OF  CHANGES  ARE  HADE  TO  EXISTING  CUES,  MAKE 
SURE  THE  LOCATOR  map  (FILE:  K0RE.MP2)  IS  CHECK¬ 
ED  TO  SEE  IF  THE  LOCATION  OF  'G ATE$KFEPE? '  HAS 
NOT  CHANGED.  THE  ABSOLUTE  ADDRESS  OF  THIS 
PROCEDURE  HAS  BEEN  SUPPLIED  TO  THE  GATE $MCDULE 
IN  FILE:  GATF.SIC.  IF  IT  HAS  CHANGED  THE  NEW 
ADDRESS  SHOULD  BE  UPDATED  IN  FILE:  GATE. SRC 
AND  RECOMPILED.  ALL  USER  PROCESSES  WILL  PAVE 
TO  PE  RELINKED  WITH  FILS:  GATE. OBJ  AND 
RELOCATED . 

LITERAL  DECLARATIONS  GIVEN  AT  THE  BEGINNING 
OF  SFVFRAL  MODULES  ARE  LOCAL  TO  THE  FNTIIiE 
MOPULF.  HOWEVER,  SOME  ARE  LISTED  THE  SAME 
IN  MODE  TH»N  ONE  MODULE.  THE  VALUE  AND 
THED EFOR E  THE  MEANING  OF  THE  LITERAL  IS 
COMMUNICATED  ACROSS  MODULE  BOUND A  RIFS. 
'NOT$FOUND'  US FD  IN  LOCATED EVC  AND 
CrFATESEVC  IS  AN  EXAMPLE.  TO  CHANGE  IT  IN 
ONE  MODULE  AND  NOT  THF  OTHER  WOULD  KILL 
THE  CREATION  OF  *NY  ne*  EVENTCOUNTS  BY  THE 
OS  . 


CONDITIONAL  COMPILATION  COMMANDS  ARE  US  ET  TO 
PRODUCE  TWO  VERSIONS  OF  THF  MCOPTEX  OPERATING 
SYSTFM.  "MCORTEX"  IS  THE  VERSION  WITHOUT  ANY 
I/O  PERTAINING  TO  ENTRY  OF  OS  PRIMITIVES.  WITH 
THIS  VERSION  IT  IS  EXPECTED  THAT  THE  USER  HAS 
COMPLETED  DEBUGGING  OF  USER  PROCESS  CODE  ANT 
THIS  IS  NO  T.OMGE?  NECESSARY.  IN  CONTRAST, 

TUF  rOTF  BRACKETED  BY  ’NOT  MCORTEX  IS  ’I  H  E  OODE 


FOR  THF  TRACE  VERSION  OF  MCORTHX  KNOWN  as 
"MXTRACE."  THIS  VERSION  PROVIDES  DIAGNOSTIC 
'HOOKS’  INTO  THF  OS  AND  SHOULD  BE  USED  DURING 
THF  CODE  D^V  F  DO  PI*?  NT  STAGES. 


/W  Jjc  V V  *  *:  V  «  «  tf  £  V  *  #  #  sjr  #  #  *  sjt  # #  #  >;s  *  #  a;:  V  #  #  #  V  #  *  V  * * i‘f  X  / 


*  if  r\r?n  ~i  it  if  it  <s  if if  if  it  it  it if  i<  if  it  >U  if  if  if  if  if  if  if  5;:  if  if  >;c  if  if  if  if  >;c  if  if  if  if  sk :;;  3;:  if  if  if  if  if  if  if  if  if  / 

/  V  \  1  v.  / 

L2?MOPULF:  DO? 

/«*#  v#  *•.  J.  V*  *' .  %!«■  %>#  %*.  **.  .**  *}*  P.  J.  J«  J.  V#  J.  J.  P.  Jf  V#  J.  V#  .•#  %V  %•#  y#  -  %y  V<  v*  s'  -  V**  V»*  V<  »*-  Vr  s’-  / 

##%  .| *  J|*  '  .|*  tf(»  *|*  #1*  »|«  J|%  .|.  .j*  «!*  #,»  #  .[■  #|*  *| -  #,  •  #|»  /|V  >, .  #|«  .|*  ^|»  *|%  *4*  #|'  *|  •  #(•  ^  *(«  #p  f|*  / 

/  r|;  ^ J|:  ifr  # j|; ^ ^ a|t :;<  #  #  >;c  aj:  #  a;:  3|«  #  y,< jjt  a|!  #  #  £  s£  #  a;:  ;|c  #  i|:  ajt  #  #  £ ajs .-,:  r|r  s|: if  y; >1:  a|--  j 

/*  LOCAL  DECI  ARATIONS  */ 


DECLARE 

MAX$CPU  LITERALLY 
MAX$V?S$C?U  LITERALLY 
MAX$ CPUS $$*r*X$ VPS  $  CPU  LITERALLY 
EALSE  LITERALLY 
READY  LITERALLY 
RUNNING  LITERALLY 
WAITING  LITERALLY 
TRUE  LI  TFF.  ALLY 
NOTSEOUMD  LITERALLY 
PORT$CA.  LITERALLY 
RESET  LITERALLY 
ENET  LITERALLY 
ER3$BL0CK$LFNGTH  LITERALLY 
F  VCSTY  PF  LITERALLY 
FRP$HEAD  LITERALLY 
ERB$wR ITF  LITERALLY 
ERB*  WF I  TF$  P  FOUR’S T  LITEP  ALLY 
I MTSKETURN  LITERALLY 


'10', 
'10'. 
'100'  , 
'0', 
'1'. 


'119'  , 
'P£5' , 
'00CAH'  , 
'0', 
'0  ', 
'P.0', 
'0 ' , 
'0  FCH  ' , 
'?  5TH  '  , 
'OEFH  '  , 
'77H '; 


/  **’  0 1  **  ff  if  ajtajtafrafcjfc  a* #  aft  #a?  aft*  a*  a*  aft#*#  *  aft  aft  a}:*  a*  3*3*  a*  aft*!  a*  aft  aft  a*#  a*  a?  apa*  a*a*a*a*  / 

/*  PROCESSOR  DATA  S  rGM  EN  T  TA  PLr  */ 

/*  DELATED  PUBLIC  IN  MODULE  ' LI ^MODULE '  */ 

/*  IN  FILE  'LFVEL1  '  */ 


DECLARE  P-DS  STRUCTURE 

( 0 PU  $ NU MRF  D  BYTF , 

V  P$ST ART  PYTF, 

V  PA  END  BYTF. 


MTS'  § 
B  Y TE , 
WORD  ) 


EXTERN A  L : 


VPS$PFRf  CPU 
LAST?- UV 
COUNTER 


/  p  1  |  Cj  sjs  *:  ff  '"f  s|:  s':  ^  #  s;: 

/*  GLOBAL  DATA  TASE 
/*  DECLARED  PU3LI 
/* 


-.f  s)t  sjt  s;:  s;«  Y-.  if  *  <s  *:  ijt  *:  Y,t  ya  s;s  >;<  YaYaY-.  s;c  Ya  ff  Yjt  s;:  s;: 

DFCL  A  0  A  TI ON  S 
C  IN  FILE  'GLOBAL. SRC' 

IN  MODULE 'GLOB  * L ?MO DHL E ' 


<7 

*/ 

*/ 


DECLARE  VPM I  M  *  X  ?  C  PU  $  $  ?  ?  M  A.  X  $  V  p  S  ?  C  PU  )  STRUCTURE 


l VP?  ID 

BYTE, 

STATE 

BYTE, 

VP?PR IORITY 

BYTE, 

EVC5TKPFAD 

BYTE, 

EVC?AW?V  ALUE 

WORD  , 

SP$RFG 

WORD  , 

SS  $  R  EC 

WORD  ) 

EXTERNAL 

DECLARE 

LOCAL?CLUSTFF? ADDP  . 

WORD 

EXTERNAL? 

DECLARE 

EVENTS 

MTE 

external; 

DECLARE  E V C $ T P I 

(100)  STRUCTUPF 

( EVC$NAMS 

BYTE  , 

VALUE 

WORD, 

REMOTE?. "DDR 

WORD, 

THREAD 

BYTE) 

EXTERNAL? 

DFCL A  PE 

SEQUENCERS 

BYTE 

EXTERNAL; 

DECLARE  SFQtTA11 

LE  (100)  STRUCTURE 

( SEO?N "ME 

BY  TF , 

SEQ?VALUF 

WORD) 

external; 

DFCL  *  FE 

N  R  $  V  P  S  '  M«x$CPU  )  BYTS1 

external, 

N  R  $  R  P  S 

MTE 

extern  *L , 

RDW$INT$FLAG 

(MAX$CPU  ) BYTE 

EXTERNAL, 

GLOBAL? LOCK 

BYTE 

external; 

/*01  #####*<« 
/*  DECLARATION  OF  EXTERNAL  PROCEDURE  REFERENCES 
/*  DECLARED  PUBLIC  IN  FILE  'LEVEL1.SRC' 

/*  IN  MODULF  'LEV  EL1$M0DULE  ' 


s;:s^«#s(:>^«  ! 

*/ 

*/ 

*/ 


VPSCHEDULF 

/* 


R:  PROCEDURE  EXTERNAL? 

IN  FILE  'SCI!  ED  .  ASM  '  */ 


FND5 


12P 


'<ET$V? 


PROCEDURE  P  YTr  v X T F R *■! A L J  END; 


LOC‘TE$?Vr  .  PROCEDURE  (  EVENTS  AMF  )  BYTE  EXTERNAL? 

D  E  C  L  A  R  r  FV?MT$NAMT  EYTV  ? 
end; 

LOCATEtSEw  :  P^OCEDU^E  (  SE0$N  *ME  )  BYTE  EXTERN  4  L  J 

DECLARE  SEQSNAMS  BYT7; 
end; 


/vf>i  •ytjt  X*  xx:  v  xv  v  >,=  #  #  #  ■,<■  v  ^  # 

'*  DIAGNOSTIC  MES S  AGES  OF  "HOOKS"  * 

$IF  NOT  MCORTEX 


DECLARF 
MSG16(*) 
MSG17i*  ) 
M3G18 ( * ) 
MSG19(*) 
MSG21 ( * ) 
MSG23(*) 
MSG24(*) 
MSG28 ( * ) 
M  S  G  2  6  ( *  ) 
MSG27(*) 


BYTE  I NITI AL (  'ENTERING 
RYTE  INITIAL ( 'ISSUING 
B  YTE  INITIAL (  'ENTERING 
BYTE  INITIALS  'ENTERING 
BY'^E  IN ITI  AL  (  'ENTERING 
BYTE  IN  IT  I AL ( 'ENTER  I NG 
BYTE  INITIAL (  'ENTERING 
BYTE  INITIAL!  'ENTERING 
BYTE  INTTI AL (  'ENTERING 
BYTE  INITIAL  1 10, 'ENTERING 


PREEMPT'  ,13,10,  '*')  , 
INTERRUPT! ! ' , 13 , 10 ,  '  t '  ) 
AWAIT  ',10.17. '%') , 
ADVANCE  ',10,17,  'T  '  )  , 
CREATE^EVC  FOR  %'), 

READ  FOP  EVC :  %') , 

TICKET'  ,13,10,  '%')  , 
CREATE$SFO  %'), 
CREATE$PPOC', 10, 13,  '*'  ) 
G A  TE$KEEPER  N=  l')\ 


DECLARE 

Ch  LITER  8  L  L  Y  'ODE', 
LF  LITERALLY  'OAR  '  J 


(* 

F 


END  IF 


/  0  2  £*  1 5*:  *'* 5,:  5'  #  *•' '•*  X*  £ u'  v'  ^  >!:  j|c i|:  # 

/*  **  ** *  **  * *  *  ** *  ##  *  *  ** **  * # # <: # #  X«  * * 

/**  GATES*  FFPPR  PROCEDURE 


Jjs  a;:  #  s;: j|-  >;•. 5;;  i/z  *  #  5;: 


BREWER  A -18-81  *#** 


/*** 

/* 

/* 

/*■ 

/* 

/••• 


n- j|:  i;.  -  : ■  jJ;  3^ #  t-.  5^  £  >;*  # >|c  >;r  5;:  )',t  s,s  :|i :;c  s|: s|-  :|c  ;|s 


THIS  PROCEDURE  IS  THE  ENTRY  INTO  THE  OPERATING 
SYSTEM  DOMAIN  FROM  THE  USER  DOMAIN.  THIS  IS  THE 
ACCESS  POINT  TO  THF  UTILITY /SERV ICE  ROUTINES  AVAIL¬ 
ABLE  TO  THE  USER.  THIS  PROCEDURE  IS  CALLED  BY  THE 
GATE  MOrUL*  WHICH  TS  LINKED  WITH  THE  USER  PROGRAM. 


/*  IT  IS  THE  G"TE  MODULE  WHICH  PROVIDES  TRANSLATION  * 

/*  FROM  THE  US  FR  DESIRED  FUNCTION  TO  THE  FORMAT  REOUIR-  i> 
/#  ED  EOF  THE  GATEKEEPER.  THE  GATEKEEPE  {  CALLS  THF 
/*  DES  1 1  ED  UTILITY /SiPVICE  OT  OCEDUR  E  IN  LEVEL2  OF  THE 
/*  OPERATING  SYSTEM  AGAIN  PERFORMING  THE  NECESSARY  * 


/*  TRANSLATION  FOR  A  ?ROPrP  TALL.  THF  TRANSLATIONS  AR  a 
/*  INVISI3LF  TO  THF  USE-  .  TH1’  G  A  T  E  K  F  FP  "  R  ADD  7 S S  IS 
/*  DR  0  V  I D  F  ^  TO  Tur  GATF  MODULE  TO  E  E  USED  FOR  THF  Iv- 
/*  DI'  ECT  0 ALL. 


*/ 

*/ 

V/ 


/#  THE  PAR®  MrTFR  LIST  IS  PROVIDFD  FOR  CONVFNI  Fr- C*  AND 
/*  - EP RESENTS  NO  FIXED  ^  r  AN  I  NG  ,  EXCEPT  FOR  'N  '  . 

/*  N  FUNCTION  COD v  PROVIDED  EY  GATE 

/*  BYT  BYTE  VARIABLE  FOR  TRANSLATION 

/*  WORDS  WORD 


/* 


PTR 


POINTER  VARIAELF  FOR  TRANSLATION 


/  *•*  0  2  4 3 5‘: ^ 5'! 4s s.1' *  # #  ' '•  *  t ■- 3?: £ #  <: # v  =!:  - 


* 7 
*/ 
’V 
:;V 
*/ 
*/ 


GATE$KSEPPR  :  P  ">nf!EDURE  ( N  , 


^YT ,  WORDS,  PTR'  REENTRANT  PUBLIC; 


DECLARE 

( N ,  EYT)  ?  YT  r , 

WORDS  WORD, 

PTR  POIN'7’?^; 

/*  1-0  SSRViCFS  ®RF  NOT  ACKNOWLEDGED  FOR  TWO  REASONS:  */ 

/*  1.  TPFY  ARE  CALLED  SO  OFTEN  THAT  DIAGNOSTIC  OUTPUT  */ 
/*  WOULD  BE  TOO  CLUTTERFD.  */ 

/*  2.  THEY  TFFMSFLVFS  PRODUCES  I -0  EFFECTS  THAT  */ 

/*  ACKNOWLEDGE  THEY  ARP  BEING  CALLED.  */ 


ilF  NOT  MCOEfFX 


IF  N  <  10  THEN  DO; 

CALL  OUT^LI  ME  f  (aMSG2r’ )  J 
CALL  OUT$NUM(N); 

CALL  OUT$CH AR : CR  )  J 
CALL  PUTSCFAR ! LF)S 

end; 

? END  IF 


DO  CASE 

M  • 
i  f 

N 

*/ 

C  ALL 

AW  A  IT ( BYT .WORDS  )  ; 

/* 

/ 

••v 

CALL 

«DV 'NCF(^YT); 

/* 

1 

*/ 

C«LL 

CREATES  FVC ( BYT ) ; 

/* 

2 

*/ 

CALL 

CREATE$SEO( BYT)  ; 

/* 

3 

*/ 

CALL 

TICKET! nYT, PTR)  ; 

/* 

4 

V 

CALL 

iiv  AD  (P YT , PTR)  ; 

/* 

5 

*/ 

CALL 

CREATE$PROC (PTR  )  ? 

/* 

6 

C  'LL 

PpEFMPT (  PYT  ); 

/* 

7 

*  / 

CALL 

PEFINF$CLIJSTER  (WORDS  )  I 

/* 

8 

*/ 

CALL 

El STR  I BUTI ON$M A P (  PTP.  )  ? 

/* 

9 

*/ 

1  NOT  MCO 

rT  EX 

*  MX  TRAC 

y  *  #  m  X  T  R  A  C  v  *  *  *  *  * 

MXTRACE 

■  *: 

V  -I* 

■'XTRACE  * 


/ 
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/***  MX  T’PC 


^XTRACE  *****  VXTR  ACE  *****  /IX  TRACE  ***/ 


CALL 

CUT vCuAR < BYT) : 

/* 

id 

*/ 

CALL 

CUTSLINE  ?TR ) 5 

/* 

11 

*/ 

C  'LL 

OUTiVUM(*YT); 

/* 

12 

*/ 

CALL 

OUT^DNUM ! WORDS ) ; 

/* 

13 

*/ 

C  "-LL 

i  ►:  s  nv »  r  (  ^tr  ); 

/* 

14 

*/ 

C  »LL 

INSNUM ( PTR ) 5 

/* 

15 

*/ 

CALL 

inSdnum(ptr ); 

/* 

16 

*/ 

SENDIF 

END;  /*  CASE  */ 

return; 

END*  /*  GATESKEEPER  */ 

/  *  0  2  8  3  *  *  *  *  *  *  *  *  *  *  *********  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * ^  *  v  *  *  *  *  *  v  / 
/*  CREATES EV C  PROCEDURE  Bli EWER  F-18-84  */ 

/* - */ 

/*  CREATES  EVENTCOUNT  EOR  INTFR-PROCESS  SYNCHRONIZATION.  */ 
/*  EVENTCOUNT  IS  INITIALIZED  TO  0  IN  THE  EVENTCOUNT  TABLE.*/ 

/  *  *  *  *  *  =.<  *  -V  *  *  *  *  *  *  *  *  *  #***  #*  *  *  *  *  *  *  ********  ***>,'<5****  *  *  *  V  -V*  *  *  *  *  *  *  *  / 

CREATES EVC :  PROCEDURE ( NAME  1  REENTRANT  PUBLIC  J 
DFCLAI’F  N  *  ME  BYTE? 

S1E  NOT  MCORTEX 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
CALL  OUTSL  I  ME  ( (AMSG21 )  ; 

CALL  OUT $NUM (NAME); 

CALL  CUTSCHAR(CR); 

CALL  OUTSCHAP(LE); 

$  END  IF 


/*  ASSERT  GLOBAL  LOCK  */ 

DO  WHILE  L0CESE?(OGL0B»T,SL0CT,119) ;  end; 

i*  /*  THE  EVENTCOUNT  DOES  *‘OT  ALREADY  EXIST  */ 

LOC f-TE?EVC( NAME)  =  NOTSFOUND  THEN  TO  I 

/*  CREATE  THE  EVENTCOUNT  ENTRY  BY  ADDING  THE  */ 
/*  NEW  EVENTCOUNT  TO  THE  END  OF  THE  evcSTABLE  */ 
EVCSTBK  EVENTS  )  .EVCSNAME  =  NAME? 

VVC STB L(EV ENTS ) .VALUE  =  O; 

EVCSTBLIEWNTS  )  .REMOTESADDR  =  LOCALSCLUSTERSADDR  J 
E VC  STRL ( EVENTS ) .THREAD  =  255; 

/*  INCREMENT  THE  SIZE  OF  THE  EVCST ABLE  */ 

EVENTS  =  EVENTS  +  1J 
END;  /*  CREATE  TKF  EVENTCOUNT  */ 

/*  RELEASE  THE  GLOBAL  LOCK  */ 
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GLOD».L*LOCE  =  ?; 

y  V'T>!|  P  k-  ; 

END*.  CREATF$EVC  P-OCEDU’E  */ 


/  *  7 3  2 4  *  *  *  *  *  * *•'  * *  *  £  *  #  *  #  *  *  ns  *  *:  sf:  V  *:  *  sjt  jj;  £ >|; >?  :;t  *  v i,<  j;c  j 

/*  "  READ  PROCEDURE  BREWER  8-18-84  :;7 

/* - */ 

/*  THIS  PROCEDURE  ALLOWS  USFRS  TO  READ  THE  PRESENT  VALUE  */ 
/*  OF  THE  SPECIFIED  EVENT?COUNT  WITHOUT  MAKING  ANY  */ 

/*  CHANGES.  5  POINTEP  IS  PASSED  TO  PROVIDE  A  BASE  TO  »  */ 


/*  VARIABLE  IN  THE  CALLING  ROUTINE  FOR  PASSING  THE  RETURN  */ 
/*  VALUE  rA  OK  TO  THF  CALLING  ROUTINE.  */ 

/  ^ sjt X=  ^  ^ ^  v  «  #  ❖ #  £  #  «  #  V  *  ^  V  $  $  $  £  *  sp ^ K- s;:aj:  *#*#};;  / 


*  EAE  : 


PROCEDURE (  E  V  0  $  N  A  M  E  , 


RETS  $PTR  )  \ EENTRANT  PUBLIC; 


DECL*  -  F 

EVr$N*^E 
EVCTBLSINDEX 
;'ETS$RTP 
EV  CA  V  e LUE$  P  ET 


BYTE, 

BYTE, 

POINTER , 

BASED  RETS  $PTR  WORD; 


/*  SET  THE  GLOBAL  LOCK  */ 

DO  WHILE  LOCK  SET ( OGLOBA  L$LOCK ,119)*  END; 


$  I F  NOT  MCORTEX 


/***  MXTRACE  *****  MXTHACE  ***** 
/***  MXTF'CE  *****  MXTRACE  ***** 
CALL  OUTALINF(0MSG23) ; 

CALL  OUT  $ HUM ( EVC  $N  A  ME ) i 
CALL  OUT$C^tR(CR)J 
CALL  OUT $C EAR { LF  )  I 


MXTRACE  *****  MXTRACE  ***/ 
MXTRACE  *****  MXTEA.CE  ***  / 


i END  IF 

/*  OPTAIN  INDEX  */ 

EVCTBLUNDEX  -  LCC ATE$FVC  (  EVCiNAME  ); 


/*  OPTAIN  VALUE  */ 

EV  C$  V  ALU  E$  RET  =  ?VC$T?l(  FVCTBL$I NDTX  ).  VALUE; 


/*  UNLOCK  GLOBAL  LOCK  */ 
GLOBAL? LOCK  =  0  ; 

return; 

FMD?  /*  FE  &D  PROCEDURE  */ 


/  *  0  3  6  P  *  *  * * *  :I:  *  *  * *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 
/*  'WAIT  PROCEDURE 
/* - - -  - 


*/ 

*/ 
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/*  I M  T  F 3  PROCESS  SYNCHRONIZATION  PRIMITIVE.  SUSPENES 
/*  EXECUTION  OF  FUNNING  ®?OCFSS  until  the  evevtcgunt  has 
/*  REACHED  THE  SPECIFIED  THRESHOLD  VALUE,  "  A  WA  IT  EL'$  V  AL’JE 
/X1  USED  BY  PH?  OPERATING  SYSTEM  FOR  THI  MANAGEMENT  OF 
/*  SYSTEM  RESOURCES. 

/j.  «•  .*  •  •  >'•  «'» >*'  «a-  »•.  > .  j«  *•»  »*#  »**  »*<  V' »•«  *•<  ,v  «#.  V'  «'*  j# **<  y<  v><  »■*  »'<  y.  J/  y  •  »><  *'<  »  ■  *'«  %<•  y.  «•«  *•»  »■ .  y.  «>.  y.  »■  • 

A  ■  v  v  »i'  v  *,  v  'r  »  •  ».*  >r  •,»  -»* «,  *i*  'i-  «,>  *,»  v  *.*  'i*  •>»  '•* 'i*  *,*  *,»  *i»  v  »,>  v  -i  •  »,*  »,•  V  «,•  *,>  *,*  »,»  *,  >,»  *»« 


-•••/ 
-■f  / 

*/ 

*/ 

*/ 

*/ 


AWAIT:  PROCEDURE ( EVC A  I D , 4 W  A ITFDi V  ALUE  )  REENTRANT  PUBLIC  J 


DFCLAilF 

A  WAIT  ED* VALUE  WORD, 

(  EVC  $  ID ,  nf:ed*sched,  p.unning*vp,evctbl$index  )  byte; 

*IF  NOT  MCORTFX 


/***  MX  TRAC  E  *****  MXTRAC  *  *****  MXTRACE  *****  MX  TRACE 
/***  MXTIACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE 


CALL  OUTSLI NE  ( (AMSG18 ) ; 


SEND  IF 


/*  LOCK  GLOBAL  LOCK  */ 

DC  WHILE  LOCK*SET'OGLCPAL*LOCKf  119);  END; 

NEED$SCHED  -  TRUE? 

/*  DETERMINE  RUNNING  VIRTUAL  PROCESSOR  */ 

RUNNI N3*  VP  =  RET*VPJ 

/*  GET  FVC  INDEX  */ 

EVCTBL* I NDEX  =  LOC A TE*EVC ( EVC $1 D ) J 
/*  DETERMINE  IF  CURRENT  VALUE  IS  LESS  THAN  THE 
AWAITED  VALUE  */ 

IF  EVC$TPL(FVCTBL$INDFX  1  .VALUE  <  AWAITED* VALUE  THEN  DO; 

/*  BLOCK  PROCESS  */ 

VPM(  .RUNNI  NG*’/?)  . EVC*THPE  AP=E’'C *TBL  (  EVCT3L*INDEX  )  .THREA  PJ 
VPM(RUNNING*VP) .FVC* «W*V ALUF  =  AW  A ITFD* V  ALU E! 

EVC  *TBL  EV  CTRL* INDEX  ) .THREAD  =  RUNNINGSVPJ 

disable; 

PRDS  .  LA  STSRUN  =  R TJ N N  I N G * V P  * 

VPM(  .-.UNNI  NG*VP)  .STATE  =  WAITING; 

END;  /*  PLOCK  PROCESS  */ 

ELSE  /*  DO  NOT  PLOCK  PROCESS  */ 

NFED$SCFED  =  E  ALS  F.  J 

/*  3CHFPUIE  TH^  VIRTUAL  PROCESSOR  */ 

IF  N EED'vS  CHED  =  TRUE  THEN 

CALL  VPSCHEDULER !  /*  NO  RETURN  */ 

/*  UNLOCK  GLOBAL  LOCK  */ 

GLOBAL*  LOCK  =  ft; 
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t.  TTfj;  p  k; ; 

END;  /*  AWAIT  PROCEDURF  */ 


/if  /  4  2?  * * * *  *  *  if  #  if  =!'  if if  >i:  if  if  if  y,:  s|;  #  #  #  #  if  *  if  if  if  if. if  s;.s|:  a,:;;:  if  if  if  if  if  a):  / 


/ 


*  ADVANCE  PROCEDURE  PKEWEP  H-18-S4  */ 

/if -  - - if/ 

/*  IMTEF  PROCESS  S YMCRRON I Z »?I ON  PRIMITIVE.  INDICATES  <7 
/*  SPECIFIED  EVENT  PAS  OCCURED  PY  ADVANCING! INCREMENTI NS )*/ 
/*  THE  ASSOCIATED  EVENTCOUNT.  EVENT  IS  BROADCAST  TO  ALL  */ 
/*  VIRTUAL  PROCESSORS  AWAITING  THAT  EVENT. 


*/ 


/*  A  CALL  TO  ADVANCE  WILL  RESULT  IN  A  CALL  TO  THE  SCHED- 
/*  ULER,  EVEN  IE  TUE  ADVANCING  OF  THE  EVENTCOUNT  DO^S 
/*  RESULT  IN  AWAKENING  ANY  NEW  PROCESSES.  THUS,  ANY 
/*  HIGHER  PFIO'ITY  ONBOARD  PROCESS  READIED  BY  AN  OFF- 
/*  BOARD  OPERATION  WOULD  BE  SCHEDULED  NEXT. 

/* - 


/*  CALLS  MADE  TO:  OUT$LINF 
/*  S YST VM$ 1 0 

/*  VPSCHEDULEP 

/  #  *  *  if  £  #  *s!'  if  £  #  *=  *  *  *  *  #  St”  Sr  * ?  #  If  #  if  if  if  if  if  if 


(NO  RETURN) 

V  v*!' Vv*r  'i* 


»r  t  V  r  A 


if/ 

if/ 

if/ 

*/ 

if/ 

if/ 

*/ 

if/ 

if/ 

if/ 


ADVANCE:  PR  DC EDUR E ( EV C$1 D )  REENTRANT  PUBLIC! 


DECLARE 

( EVC  $  ID ,  FVCTBL$INDEX  )  BYTE, 
(SAVE,  RUNNI NG$VP,  DUMMYSVAR,  I)  BYT E , 
CLUSTER  $ADDR  WORD? 


$IF  NOT  MCOP.TEX 


/ififif  MXTRACE  *****  MXTRACF  ***** 
/a- if ^  MXTRACE  *****  MXTPftCE  ***** 


MXTRACE  ***** 
MXTRACE  ***** 


MXTRACE  ***/ 
MXTRACE  ***/ 


CALL  0 U T $ L I N F ( 0 MS G 1 9 ) 5 


$ENDIF 

/*  LOCK  GLOBAL  LOCK  */ 

PO  WHILE  LOCKSET  OGLOBAL^LOCK ,119);  END* 


FUNNING$VP  =  RFT$VP; 

EVCTPL$IND5'X  =  LOCATES FVC(EVC$ID)  ; 

EVC$TBLfEVCTBL$lNDEX) . VALU?=FVC$TBL( EVCTBL$INDEX ). VALUE  +  1 
I  F  EVC$TPL(  PVCTPL$  INDEX)  .HEMOTE$  ADDT-  O  LOCAL$  CLUSTER  $  *DDi. 
THEN  DO; 


/*  PEMOTP  COPY  IS  NEEDED  -  THE  CONVENTION  IS: 

AN  EVENTCOUNT  THAT  HAS  A  REMOTE  COPY  WILL 
NOT  HAVE  ITS  EMOTES  ATOP  FIELD  EQUAL  TO  THE 
LOCAL4CLUS TEDS  ADD?. 
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*/ 


C  LUS  TFR  $  =  vv  C  STB  L  !  F  V  CTPL I  N  C  FX  )  .  R  EMC  1’F  5  A  DD  ?. 

XO°  L  OC  A  L  $  r  LUS  T  E  R  $  A  D  PR  ! 

GLO*«L$LOCr  -  PJ 

HALL  systfm$io( FN^T , VYC STYPE , EVC$ I  D  , 

FVC$TBL(EVCTBL$ INDEX ) . V  ALU  3 .CLUSTER  $  ADI R ) 5 
DO  WHILE  LOCK$SF'i’(OGLOB^L$LOCK,119)*  END.* 

end;  /*  ITD  */ 

SAVE  =  2551 

I  =  FVC*TBL(  FVCTBL$INDFX  ). THREAD; 

DO  WEI LF  I  O  255; 

IF  VFM  '  I  )  .  EVC  $  AW  $  V  AL'JF  <  =  SV  C$TEL  (  F.VCTBI  $  I  ND  EX  ;  .  V  A  I.L 
THEN'  T'o;  /*  *W»KFN  THF  PROCESS  */ 

V  PM( I  ) .STATE  =  RF« DY; 


V PMf I ) . EVCiA  W  *  V  A LUF  -  0? 

IF  S'VE  =  255  THFN  DO;  /*THIS  FIRST  ONE  IN  LIST-/ 
r*UMMY $VAR  =  V  PM '  I  )  ,EVC$ THREAD? 

EVC$TBL(  EVCTBL$ I NDFX ) .THREAD  -  DUMMY$VAP; 

V*>M'  I  )  .  EV OiTPRFAD  =  255; 

I  -  F V 0 $ T B L (  F 'rCTBL$ I NDFX  ).TH;FAD; 

FND;  /-  IF  FIRST  */ 

ELSE  DO;  /*  THEN  THIS  NOT  FIRST  IN  LIST  */ 

V  PM  ^  SAVE  ).FVC$TPFE»D  =  VPM(  I  )  .  E  VC  $  TH  ,’F  *D  J 

vp^:  i  ).fvc$thr*ad  =  255; 

1  =  VPMf  SAVE  ) . 5V CiTFREAD  5 

end;  /*  if  not  first  */ 

END;  /*  IF  AWAKEN  */ 

ELSE  DO;  /*  DO  NOT  AWAKEN  THIS  PROCESS  -/ 

s  ave  =  i ; 

I  =  V?M(  I  )  .FVr$THRFAIK 
EN  r ;  /*  IF  NOT  AWAKEN  */ 

END?  /*  DO  WHILE  */ 

PRD5 . L  A S T > R U N  =  RUNNINGSVP; 

V  PM ' RUNN I NGS V  P ) .STATE  =  READY  5 

CALL  VPS  C FF.DUL ER  ;  /*  NO  RETURN  */ 

/*  UNLOCK  THF  GLOBAL  LOCK  */ 

GLOBAL$LOCK  =  0; 

return; 

FND;  /*  ADVA N C E  PBOCEDUFE  */ 


/*25 18  Jj:#  if*## 

/*  PRFEMPT  PROCEDURE 


BREWFii  8— lb-54 


*/ 

*/ 


/* - '*/ 

/*  THIS  PROCEDURE  AWAKENS  A  HI  PRIOITY  PROCESS  LEAVING  */ 
/*  THE  CURRENT  RUNNING  PROCESS  IN  THE  READY  STATE  AND  * / 
/*  CALLS  FOR  A  RESCHEDULING.  THE  HIGH  PRIORITY  PROCESS  */ 
/*  SHOULD  BLOCK  ITSELF  WHEN  FINISHED.  */ 


/*  IF  THE  VP^ID  IS  'FE'  OR  THE  ^ONITOr  PROCESS,  IT  WILL  */ 
/*  MAKE  IT  READY  WHERE-E VFR  IT  IS  IN  THF  VPM.  THE  FOLLOW-*/ 
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HPCL'AF  (CH*P  ,  INCH:'  )  PYTF; 

/*  CHE  "ft  PORT  STATUS  */ 

INCH’-'  =  ( I NPUT ( 0D8H )  A UP  0?FU  )  I 
IF  INCH w  =  1  3H  THEN 

DO  WHILE  INCH';  <>  up); 

IF  (  ( I  N  P  U  T  (  ?  D  A  F  )  AND  1’2'n)  <-  )  THEN 

INCHR  =  (  I NPUT (PDF"  )  AND  <?7F"i: 

P  ♦ 

DO  WHILE  (  INPUT  ( P»DAH  )  AND  Plfl)  =  ?\  ENT? 
OUTPUT  (PDPH )  =  CHAR,* 

P FTURN  ; 

end; 


j  2  1  P  ^  3'*  ^  *»*  X5  Xs  X*  V  v  X;  v  ^  ^  v  ^  X'  V  V  X'  V  X*  X*  V  X*  ;i*  Xc  V  v  3.;  V  v  v  '■*  v  X*  V  5<- 


/#  I  N  $  u  FX 


PBOCFDUR  E 


EREWEi  8-18-84  */ 


/*  GETS  ?  HEX  Char  FROM  THF  SERIAL  PORT  AND  IGNORES  ANY-  <7 

/*  THING  ELSE.  EACH  'r  A  L  T  P  HEX  DIGIT  IS  ECHOED  TO  THE  :;7 

/*  SERIAL  pop?.  n  BYTE  VALUE  IS  FORMED  FoOM!  THF  TWO  HEX  */ 

/*  CHAR.  *7 

- - - -  - */ 


/* - - - — 

/*  CALLS  MADE  TO:  PFCV$C!’AF 

/  V  V  X*  X* X;  v  Xs  X'  *•'  v  X*  X*  X*  X'  v  x*  X*  X1  X<  X*  Xc  X*  X*  X'  -i'X-  ;Jc  X-  V  v  s 


.  *»-  «•< 

.  »,« 


. *7 


I  N  $  H  F  X  :  pPOC  FDD  F  E  BYTE  PFEMTI-.  ANT  PUBLIC: 

DFCLARF 

ASCII*-)  PYT  E  DATA.  (  '01234SS7B9A3CD2F  '  ) , 

«SCIIL(*)  c  YT  F  DATA  (  '?  123456789  '  ,6  1H,62H  ,r>:5H  ,64F  ,  cPF  . 

66:1 )  , 

'INCH:5,  HFX  NUM  ,  H,  L  1  -YT'-', 

POUND  BYTE, 

STOP  byte; 

/  *  ’TT  U  I  r  p  DART  OF  v  Y  T  r  *  / 

FOUNT  -  Q\ 

DO  while  not  found; 

/*  IF  INVALID  CHAR  IS  INPUT,  C  0  M  E  BACK  HERE  */ 

INCHR  -  FFCViCHAR; 

H  -  0 : 
stop  =  0; 

/*  COMPARE  CHAP  TO  HFX  CHAR  SET  */ 

DO  WHILE  NOT  STOP; 

IE  ! I NrHR  =  A  SC  1 1  '  H  )  )  OK  ( INCHR  =  ASCIIL\H))  THEN  TO; 

stop  =  hfff; 

FOUND  =  offh; 

PALL  SFND$CHAS;  INCPR  );  /*  TO  ECHO  IT  */ 

F’id; 


1  19 


ms  able: 

SEND  =  "  T  G  H  (  "ON  'JM  ); 
CAT.l  OUTSHEX(  SENT  )J 
send  =  low  (  dnum  ); 

("ALL  OUT$HEX  \  SEND  ); 

enable; 

F,  FTIIP.N ; 

end; 


/*  1 1  p i«#****«*** 

/*  F  F  C  V  S  C  F  a  ft 


^  #  i\t  #  # #  >;<  ^  y.s  #  #  5;: 

PROCEDU P F 


/* - 

/*  POTT  EM  LEV*L  PROCEDURE  THAT 
/*  SERIAL  PORT.  PARITY  BIT  IS 
/*  ECHO  EL. 

/* - 


/*  CALLS  MATE  *0:  NOME 

/  5»»  V  v  V  V  V  *!*  Jr  J|{  J»*  V  n*  Ji*  V  V  v  ^  W  Jr  ^  J|*  Jl*  J|' 


# 


PFEWEF 


8-18-b4 


/ 

/ 


OBTAINS  A  CHAR  FROM  THE  */ 
REACHED.  CHAR  IS  MNCTM  */ 

*/ 

*/ 

<=  5|:  #  *:  #  *  *  i|:  *  *  *  !j'  *,<  *  *r  ;;,•  >;•  rjc  V  jjc  *  y  *  / 


/***  MXTRACE  *****  MXTRACE  *****  MXTRACE 
/***  M  X  T  D  a  C  F  *****  MXTRACE  *****  MXTRACE 


*****  MX TRACE 
v****  MXTMCF 


R  E  C  V  $  C  H  A  R  :  PROCEDURE  BYT^  REENTRANT  PUBLIC; 

DECLARE 

cpp  byte; 

/*  CHECK  PORT  STATUS  E IT  2  FOR  RFC  El  7 E-R  EA  DY  SIGNAL  */ 
DO  WHILE  •  INPUT  (  0DAH  )  AND  OPR)  =  V) ;  END* 

CH.  =  f INPUT! ?P8H)  f  NO  P7FH): 

RETURN  CHR; 

end; 


/ 5'6  1  1  Q  5  #  #  #  •'  ^  :|c :!-  #  z\c  ^  ^  >;<  H,c  3^  :Jr  :J;  ;J;  #  5,: #  aj; >Jc 2|:  sj:  a*,:  3;r 

'*  SENMCHo®  PFOCEDUFE  BREWER 

/* -  - 


,a_]_c_u/j  *  / 

- */ 


'*  OUTPUTS  «  PYTF  THRU  THE  SEMAT,  PChT.  THIS  IS  NOT  A  */ 
/*  SERVICE  AVAILABLE  THRU  TK*  G  AT  FK  FF-PKH  PUT  IT  IS  CALLED*/ 
/*  BY  MANY  OF  THOSE  PROCEDURES .  TT  WILL  STC?  SENDING  s7 
/*  'AND  EVE  YTT’TMG  ELSE)  IF  IT  SE*S  A  ~S  aT  INPUT.  "C  */ 
/*  WILL  P  rLrASE  THir  PPOCEDURF  TO  CONTINUE.  */ 
'*  THE  USER  BEWARE!!!!!  THIS  IS  ONLY  A  DIAGNOSTIC  TOOL  */ 
/*  TO  ERE  EZr  THF  CRT  FOR  STUDY-.  RELEASING  IT  DOESN'T  */ 
/*  ASSU..E  NORMAL  RESUMPTION  OF  EXECUTION.  (YOU  MAY  FORCE*/ 
/*  ALT,  BOARDS  TO  IDLE  FOP  FX  AMPLE.)  */ 


/* - */ 

/*  CALLS  M A D r  TO:  */ 


:  :;r  ;;r  :J:  >Jc  :Je  £  )Jt  j);  5’,: j|c  ajt  #  3^  sjcifc  :’,c  sjc  >;»  #  jjs  # #  3*c  :|c  3jc  sj:  #  3|c  ^  3J:  sj:  3': 3(:  3;  ajc  3;:  i\:  jU  3Jj  H:  Hr 


SENDtCHAR:  PROC EDUF E ( CH * L  )  PFENTRANT  PUBLIC! 


14P 


OUTANUM:  ^RCCEDU^1*’!  NUM  )  R  EENTRANT  PUBLIC? 


P  ^ C L .» ’i  N'UM  PYT7? 


END 


r  i  s  *  ?  l  e  ; 

CALL  OU?$HEXl 
enable; 

RETURN  5 


NUM  ); 


/if:  11  11  **«*>!'* 
/*  IN^DNUM 


*  if  if  *  if  *  2;.-  *  if  *  2;.-  if  if  if  if  «  2;:  if  if 2;:  if  if  if  s'.:  #  if j|:  if  2;:  s|s  :;= 2;:  *: 2,:  2;:  2.V  #  i'~  if  ifif  / 

?L  OC  ED'JP  E  3  HE  ft' EH  8-18-84  -7 

- >f, 


/■■  GETS  FOU"  ASCII  rROM  S  Ep  I  a  L  PORT  TO  FORM  *OHD  VALUE. 
/*  CPITEIIA  ARE  THE  SAME  AS  IN  PROCEDURE  IN$NUM. 

/*  CALLS  MADE  TO:  IN$HFX 


/  jJ »  ip  ip  ip  )Jt  5,'  3p  ?p  3p  *('■  v  v  v  X"  ^  ^  V  ^  V  ^  V  V  V  V  *!•  V  v  V  V'^  W  v  V  v  V  V  V  '!*  *1*  '1'  ^  V  * 


or*  *»*  *v  • 1 '  '1' 


if, 

*/ 

if, 

*/ 
if  / 


IN$DNUM:  PROCEDURE  (  RET^PTR  )  REENTRANT  PUBLIC* 


DECLARE 

R  rT$  PTR  POINTER, 

DNUM  5ASEP  ,RET$PT R  WORD, 
(H.  L)  word; 

disable; 
h  =  in^fex; 

H  =  SHL  f  H,  8  ); 

I.  =  insfex; 

DNUM  =  (H  OR  L ) ; 

enable; 

return; 

end; 


/if  2  1  ’yi.-if  2;-.  if  if  j;:  :li  if  if  if  if  J|t  if  if  if  i,--  if  if  *  i-  2(:  2;:  *  if  >1:  Z  if  if  if  2;:  2;: 2^ if  if  if  if  if  i|s  2;:  2;:  2;:  , 

/*  OUTSONIJM  PROCEDURE  THF*FR  8-18-HA 

/*  OUTPUTS  A  WORD  VALUE  NUM  3En  VIA  THE  SERIAL  PORT  ■■  / 


_ _  i‘.:  / 

/ 


/#  CALLS  MADE  TO:  OUT$RFX  V 

/  >Jt ;  ip  5p  si?  ;|i  v  i.s  - ;  v  'fi  »!•  V  RA  V  *r  V  V  ;*  •  n~  L:r  V  5!-*  V  v  V  ^  V  ip  i,i  V  V  si-  v  v  sjt  *»•  *.*  V  V  V  v  v  V  \*  *•*  / 


OUT  iDNUM  :  PROC  FDUPF  (  D'JLM  )  I.EENTP  A  NT  PUBLIC; 


D^C  L  •'  R  r 

DN'JM  W 0 L  D  , 

SFND  pytf; 
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/*  OUT$CHAF  PROCEDURE  Bit  EWE;-  8-18-84  */ 

/* —  - */ 

■'*  SENDS  4  ^  Y  TE  TO  mHE  SE"IAL  POST  *  / 

/* - */ 

/*  CALL  MADE  TC:  S EN D$  CF A R  */ 


V^vS!' vo  T'i;*r  *v  vt  vr  v5!1  v'r  r  Vt*^*!*^  v^'V!rVv;r5r  vVv  t  V  v  V  V  V  'r  V  »,*  ^ 

0UT$  CHAP :  PROCEDU  PE (  CHAR  )  REENTRANT  PUBLIC? 

DECLARE  CHAR  BYTE? 

DISABLE? 

C  ALL  SEND$CH AF  (  CHAR  )  ? 

EN A  ?I E  ? 

RETURN  ? 

END? 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


1  06  4*  ####****#***##*  ***#*# 

0U1’$LI  NF  PROCEDURE  BREWER  8-18-84 

USING  A  POINTER  TO  A  BUFFER  IT  WILL  OUTPUT  AN  ENTIRE 
LINF  THFU  THE  SERIAL  PORT  UNTIL  AN  '%'  IS  ENCOUNTERED 
OR  60  CHARACTERS  IS  REACHED— WHICH  EVER  IS  FIRST.  CR  'S 
AND  LE 'S  CAN  BE  INCLUDED. 

CALLS  MADE  TO:  S EN D$ CHAR 

a(« a*  aj: ajt #  a? 5^ 


*/ 

*/ 

*/ 

V/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


OUT$  LINE:  PROCEDURE (  LI NE$PTR  )  REENTRANT  PUBLIC? 


DFCLARF 

LI NE$PTR  POINTER, 

LINE  BASED  LINE$?TR  (80)  BYTE, 

II  BYTE? 

DISABLE? 

DO  II  -  0  TO  79? 

IE  L I N  E  (  II  )  =  THFN  GO  TO  DONE? 

CALL  SFNDSCHARl  L I N E (  II  )  )? 

END? 

DONE:  ENABLE? 

R  FTUR N ? 

END? 


/*  1  ^  92  **#*<=*#  *s;:a;:  alta;:*  a;«a;::;ca£;:tv  a;;  / 

/*  OUT$NUM  PROCEDURE  BREWER  8-16-84  #/ 

/* -  - #/ 

/*  OUTPUTS  4  BYTE  VAULE  NUfNBFE  THRU  THE  SERIAL  PORT  */ 

/* - */ 


/*  CALLS  MADE  TO:  OUTSHEX 

aj;  a',:  ?■  i-  a;-  a|:  :|c  #  a!*  a;:  a^  a;;  al:  a|:  a!a  a|t  a;:  a|a  a;:  a^  a;;  i;.  a|t 


*!'  V  a*=  V 


*/ 

**/ 
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/*  INPUT  TO  S  EP I  * !  PORT  VI'  SRCPP1  DOWN  LOf*D  PROGRAM  MAY 
/*  NOT  BP  ACCEPTED. 

/*  POINTED  IS  PROVIDER  BY  USER  SO  PE  CAN  BE  RETURNED  THE 
/*  CHAR  * CTER  . 

/*—. - - - - 

/*  CALLS  f^ATE  TO:  PECV$f»HP 

##*=**'* ’rtf*###*  #  #  =1'  >}e  *  Jp*  >ft  #  jjt  sp#  sp  ¥  apsp  V  -f  a?#*  £ 

I N$C RAR :  PROCEDURE  (  RET^PTR  )  REENTRANT  PUBLIC? 


DECLARE 

RET$PTR  POINTER, 

INCHR  BASEr  RET$ PTF  BYTE? 


disable; 

INCHR  =  recv$char; 
enable; 


return; 

end;  /*  IN$CHAR  */ 


/*!  0  1  7#  ft##*  #>Jc<c<c*#s,''<e<c^t<!#X'*J('>!s5r  Sr* 


/'■ 


I  N  $  N IJ  M 


PROCEDURE 


BREWER  B-18-S4 


■*/ 

*/ 


/*. 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/* 

/* 

/* 

/<- 

/* 

/* 

/** 

/* 


GETS  TWO  ASCII  CHAR  FROM  THE  SERIAL  PORT,  EXAMINES 
THEM  TO  S"E  IE  THEY  A  - F  IN  THE  SET  {* .  .  F  HEX  AND  FORMS 
A  EYTF  VALUE.  EACH  VALID  HEX  DIGIT  IS  ECHOED  TO  THE 
CRT.  I M?ROpER  CHAR  ARE  IGNORED.  NO  ALLOWANCES  ARE 
MADF  FOR  WRONG  DIGITS.  GET  IT  RIGHT  THE  FIRST  TIME. 

IE  YOU  ARE  INDIRFCTLY  ACCESSING  THE  SERIAL  PORT  VIA 
THE  SRC°01  DOWN  LOAD  PROGRAM  FROM  THE  MDS  SYSTEM 
I NDUT  MAY  NOT  Br  ACCFPTFD.  «  POINTER  IS  PASSED  BY  THE 
USER  SO  THAT  HE  RETURNED  THE  CHARACTER. 


/* 


*/ 

- */ 

*/ 

/  if.  if  sp  sp  >p  #  >p  sp  Jp  V  >P  #  sp  <:  *;•  if  #  »P  >P  >P  #  sp  *  #  sp  <c  Vf.  if  #  >p  sp  jp  >p  #  :p !f:  >P  V  V  ap  ap  V  ap V  >p  sp  / 


/*  C  ALLS  MATE  TO:  I N  $R  FX 


I N $ NUM :  PROCEDURE  (  R  ET$  PTR  )  REENTRANT  PUBLIC? 
DECLARE 

r  FT  $  PTP  POINTFP, 

NUM  BASED  R  ET$  PTR  BYTE? 


r  is  able; 

NUM  =  IN$HEX; 

enable; 

return; 

end;  /*  TN$NUM  */ 


/  *  1  T'  4  fS  *  *  ap  *  <*  ap  ♦  *  >P ap  >:■  ap  *  ap  »P  >P  *  *  ap  ap  =P  >P  apapjp  ap:|-  *  *  *  ap ap  *  ap  ap ap  ap  *  ap  ap  ap ap  ap ap  ap ap  ap  ap  ap ap  y 
/Jpapapapapapapapap  Jpap apapapap  apap  apapapap  ap  ap  ap  ap  ap  ap  ap  ap ^ apap  apapapap  apapap  apapap  apapapap  ap  apapap  v=psp  *  apap  ap  / 


end; 


/*  D^FIN^CLUSTER  */ 


/*  DISTPIBUTION$MAP  PROCEDURE  BREWER  8-18-84  */ 

/* - */ 

/*  THIS  PROCEDURE  ASSIGNS  GROUP  ADDRESSES  TO  THE  */ 

/*  R  EMOTEA » DDF  FIELD  OF  THF  DISTRIBUTED  ENTITY.  THIS  IS  l  */ 
/*  SYSTEM  MANAGEMENT  DECISION  -  THE  USER  (ALTHOUGH  SYSTEM)*/ 
/*  PROCESSES  DO  NOT  MAKE  CALLS  TO  THIS  PROCEDURE.  */ 

/*  *  / 


j  Jr  ^ * *  t- #  -  -f  Jjs #  *  J,*  J**:*#  *  J^Sr* *>=  >«<  sCs**J!e  s?  J*  a*#*:#  £ *  #  *  **  >;:**  V *  #  Jr  / 

DISTRIBUTION* MAP:  PROCEDURE  (MAP*PTR)  REENTRANT  PUBLIC? 


DFCLARE 

MAP$PTR  POINTER, 

TBL$ I NDEX  BYTE, 

M AP$T AP LT  EASED  MA  P$  PTR  STRUCTURE 
( MAP$TY  PE  BYTE, 

ID  BYTE, 

CLUSTFR$ ADDR  WORD); 


DO  CASE  map$table.ma?$tvpe; 

do;  /*  fvbntcount  type  */ 

TBL$INDEX  =  LOCATE$EVC  ( M APiTABLE . ID  ) » 

EVC$TEL' TBL$INDEX) . REMOTE$ ADDR=MAP$TAB LE. CLUSTER  $ ADDR ; 

end; 


do; 

/*  STUB  */ 

end; 

fnd;  /*  no  case  */ 

END;  /*  DTSTPIBUTIONtMAP  */ 


$  I F  NOT  MCO’  TEX 

/*  CONDITIONAL  COMPILATION  OF  PROCEDURES 
ASSOCIATED  WITH  ***  MXTRACE  ***  */ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*0990******* ************************************* ********* / 
/*  I N $C P AR  BROCEDURF  BREWER  8-18-64  */ 

/* - */ 

/*  GETS  A  CHAR  EPOM  THE  SERIAL  PORT.  CHAP  IS  ! !  !  N  OT  !  !  !  */ 
/*  ECHOED.  THAT  IS  R^SPONSI PI LTY  OF  USER  IN  THIS  CASE.  */ 
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/*  SLOT  OPEN  SO  WRITE  TO  ERB  */ 

ERBilNPEX  =  I  !*op  epb$block$length; 

E?B  (ERBilNDFX) .COMMAMP  =  PEQUEST$TY PE ; 

ER?  f  ERBSINPEX  )  .TYPE5NAMF  =  NAME? 

ER  3  ERB$  IN DEX  )  .  N  AME$ VALUE  =  VALUE* 

ER  B  ( FFBil NDEX ) . REMOTE $  AD DP  =  ADDRJ 

/*  NEED  TO  ADVANCE  THE  VALUE  OF  ERB $ WRITE  */ 

DO  WHILE  LOCK iS FT ( OGLOBALALOCK ,  119); 

/*  ASSERT  LOCK  */ 

enp; 

INDEX  =  LOCATEiFVC  (ERBiW'R  ITE)  ; 

EVC$TPL( INDEX ) .VALUE  =  EVC$TBL( INDEX) .VALUE  +  15 
GLOBALiLOCK  =  ?\  /*  RELEASE  */ 

/*  NOTF  THAT  THIS  AVOIDS  THE  UNNECESSARY  OVER-  */ 
/*  HEAD  OF  THE  ADVANCE  PROCEDURE  */ 

END;  /*  DO  BLOCK  */ 

DO;  /*  STUB  FOR  NOW  */ 

end; 

END?  /*  REOUFST$TYPP  */ 


end;  /*  PATH  */ 

^NP;  /*  SYSTEMA I  0  */ 


/^OPPS***************************************************** / 
/*  DEFI N^A CLUSTER  PROCEDURE  BREWER  8-10-84  */ 
/* -  - 


/*  THIS  PROCFDUPE  IS  CALLED  ONLY  ONE  TIME  AT  EACH  CLUSTER . * / 
/*  ITS  SOLE  PURPOSE  IS  TO  DEEINF  THE  LOC A  LACLUSTER  ADDRESS.*/ 
/*  THIS  PROCEDIlr.F  C»LL  MUST  BE  THE  FIRST  CALL  IN  THE  IN  IT  */ 
/*  PROCESS  BROUGHT  IJP  IN  EACH  CLUSTER.  */ 

/*  '*/ 


/  *  #  a!-  *  $  «  £  *  s,-  *  *  a;: #  «  *  X:  *  #  *  #  V  # *  *  * *  #  * 


#***«#*##*#!*  if;*#******  ¥****#>,;  / 


DEFI  NEACLUSTE;J  :  PROCEDURE  (CLUSTERAIP)  REENTRANT  PUBLIC; 


DECLARF  CLU5T ER$  IP 

I 


WORD, 

byte; 


LOCALACLUSTEFA ADDR  =  CLUSTEFAID? 

/*  FOR  NOW  OTHER  ENTITIES  FIELDS  ARE  UNINITIALIZED  */ 


EVCi TBL(C) . RFMOTEiAPDR^CLUSTERilPi 

/*  FIRST  EMT-Y  IN  TABLE  IS  A  RFSERVED  SYSTEM  E VFNTCOUNT  */ 


/*  IS  WRITTEN  TO  ALLOW  FOR  THF  EXTENSION  TO  OTHER  DATA  * / 
/*  COMMUNICATION  MEDIA.  */ 
/*  *  / 
/*  FUNCTIONALITY:  */ 
/*  QUEUES  UP  RFOUESTS  IN  AN  ETHERNET  hEQUEST  BLOCK  */ 
/*  f  E R B  )  FOR  CONSUMPTION  BY  THE  ETHERNET  COMMUNICATION*/ 
/*  CONTROLLER  BOARD  (FCCB)  DFVICE  HANDLER .  */ 

/* - V 

/*  CALLS  MADE  TO:  READ  */ 
/*  ADVANCE  */ 
/*  TICKET  */ 


/# X!  jjc  X<  # #  *  *  # # * s',s  #$£  #  <«  *  #  #  #  # #  ##  #  fr  * sp  *  # *  >»  *  *  # *  *  *  V  #  #  ¥  #  > 


S Y ST EM$ IC :  PROCEDURF  ( PATH ,REQUEST$TYPE, NAME, VALUE ,ADDR ) 

public  reentrant; 


DECLARE 

(PATH.  REUUFST$TYPF,  NAME,  FPB$I NDEX,  INDFX)  BYTE, 

(VALUE.  ADDR,  I,  J  )  wOnD; 


DECLARF 

ERB(ERB$ BLOCK* LENGTH  ) 
(  COMMAND 
TY  PE$NAME 
NAME$V  ALUE 
REMOTE$ADDR 


STRUCTURE 

BYTE, 

BYTE, 

WORD, 

WORD)  AT  (10000H); 


IF  PATH  =  ENET  THEN 

do; 


DO  CASE  request$typf; 

do;  /*  IT'S  ETHERNET  AND  EVENTCOUNT  */ 

CALL  TICKET(EFB$WPITE$PEQUEST,  01); 

/*  I  NOW  HAS  THE  VALUE  OF  TICKET  RETURNED  */ 
CALL  !’EAD(EB«$WFITF,  0J  )  ? 

/*  J  NOW  HAS  TH17  VALUF  OF  ERB$WRITF,  */ 

DO  WHILE  ( J  <  I  )  ; 

CALL  TIME  (1<*); 

/*  1  MS  DVL 4  Y  ==>  RFDUCF  BUS  CONTFNTION  */ 
CALL  REA D( EPB$ WRITE,  OJ)  J 
END;  /*  DO  WHILE  */ 

/*  WRITE  TO  rRB ,  IF  IT'S  NOT  FULL  */ 

CALL  PEAD(EBB*Ff AD,  0J)J 
DO  WHILE  (  (I-J)  >=  ERB$B LOCK $  LENGTH ) 5 
/*  IT'S  FULL  SO  DO  A  "BUSY  WAIT"  */ 

C*Ll  TIME  (65*)  J 

/*  DELAY  ONE  PACKET  TRANSMISSION  TIME 
QUANTUM  */ 

C«LL  READ( ERB^RE®  D,  0J  )  ; 


/*  TO  S PT  UP  PPOC$ST»CKA?TR  */ 

PS1  =  PROC  AT  ApLE . PR  OC  $S  ?  -  113H5 
PS2  =  PROC $TA PLE . PROC $S S ; 

procastack .rft$tvpe  =  intareturn; 

PROC  AST  ACK  . PP  =  PROCAT  ApLE.PROC$SP; 


PROC $STACK  .PI 
PROC  ASTACK . S I 
PROCAST»CK.DS 
PROC  $ST ACK .DX 
PROC  ASTACK  .CX 
PPOCAST ACK . »X 
PROC $ ST ACK .BX 
PROC  $ST A  C^ . PS 
PROC  ASTACK . I? 
PROC  AST  ACK  .CS 
PROC$STACK.Fl 


0; 

0? 

procAt»ble.procads ; 
0; 

0; 

0; 

0; 

PROCATA'RLR.PROC$ES* 
PR()C$T»BLS.PPOC$IP; 
PROC$TAPLF.PROC$CS; 
200HJ  /*SET  IF  FLAG 


ENABLE  INTRJ*/ 


/*  SET  GLOBAL  LOCK  */ 

DO  WHILE  LOCKSET f ^GLOBAL$LOCK , 1 19 ) J 


IF  PRDS  .VPSAPERACPU  <  MAX$VpS$CPU  THEN  DO? 


TEMP 

V  PM  ( 

V  PM  ( 

V  PM  ( 

V  PM  ( 

V  PM  ( 
vpm; 

V  PM  ( 


=  PRDS.V?S$PERACPu  +  PR  PS  .  VP$ START  * 

TFMp  ).VPAID  =  PROC,ATApLE.PPOC$IB; 

TEMP  ). STATE  =01;  /*  READY  #/ 

TFMP  ) . V?$PRI OR ITY  =  PROC AT ABLE . PRGCAPR I J 
TEMP  ).EVC$THPEAD  =  2555 
TEMP  )  .EVCAAWAVALUE  =  0S 

TEMP  ).SP$REG  -  PROC$TABLE.PROC$SP  -  1 AH 5 

tfmp  kssaheg  =  proc Stable . ppoc$ss ; 


PRDS .VPSAPERACPU  =  PRDS  .V PSAPERACPU 
PROS  .  VP AEND  =  PRDS  .  VPAEND  +  1? 
NRAVPS (  PRDS .CPU$NUMpFR  )  = 

NR$VPS ( PRDS .CPU$ NUMBER )  +  1? 
end;  /*  DO  #/ 

/*  RELFASF  Tu F  GLOBAL  LOCK  */ 
GLOBAL$LOCK  =  0? 

return; 

end;  /*  createaprocess  */ 


/ ’A*  ^Q32s{£a,tsee’ee5{c’:'34s  ^cs:* 5f:*5s,*e’**,5c3,ej,c,^aee  5CeaC£ s{s ajes^ a{s sf:j{e  a;; sjc ^ >;c  j 

/*  SYSTEMAlO  PROCEDURE  BREWER  8-18-84  */ 


/*  PROCESSES  A  REQUEST  FROM  THE  ADVANCE  PROCEDURE  (AND 
/*  OTHERS  TO  BE  DEVELOPED)  TO  ADVANCE  THE  VALUE  OF  AN 
/ *  EVENTCOUNT  TH JT  HAS  A  REMOTE  COPY.  ALTHOUGH  THE 
/*  CURRENT  IMPLEMENTATION  IS  LIMITED  TO  THE  ETHERNET  AS 
/*  THE  MEDIUM  FOR  DISTRIBUTED  FVENTCOUNTS  ,  THE  PROCEDURE 


PROCESS  ?  -  Ir  9 1  "Y  ,  r  PFSIRFT  P9.CC  STACK  LOCATION 
AND  T9 E  PROCESS  CODE  STAPLING  LOCATION  WHICH  13 
IS  !’  i.  0  EI.EVfNTS :  TTIP  Ip  REGISTER  (OFFSET)  AN  I  THE 
CS  f  FT  I  ST  Fr  (CO DF  SEGMENT) . 


/*  CALLS  MALE  TO:  OUTLINE  */ 

y  :!t  X;  ip  X<  :Jt  if  X?  X:  is #  #  if  X«  j|s  5;;  1;:  JJ;  J,:  JJ  X!  :;t  jjs  if  if  if  'f  if  if  if  sp if  if if  X:  ;;t  if  if  if  if  X'-  if  if  if  j,c  y 

CRFATF5PRGC  :  ?ROCFDI)RF(  PROC$pTR  )  REENTRANT  PUBLIC? 


DECLARF 

PROC  $  ?T  P 


POI NTpr , 


PROC$TA  BLE  BASED  PROC$PTR  STRUCTURE 


( PFOC  $  I  0 

PYTF, 

PROC$?9T 

BYTE. 

PROC  $S p 

WORD, 

PRO  C  $S S 

WORD, 

PpOC$TP 

WORD, 

PKOCtCS 

WORD. 

PROC  $PS 

WORD, 

PROCSFS 

WORD) 

DECLARE 

fPSl,  PS2)  WORD, 
TEMP  BYTE? 


DFCL  s  RE  PpOC$ST9CK$PTP  POINTER  AT(PPSl), 

PROO$ST  ACK  EASED  PROC$ST» CK$PTR  STRUCTURE 
LENGTH  ( 0FEH )  BYTE, 

,R  FT  $  TY  PE  WORD, 

BP  WORD, 

DI  WORD, 

SI  WORD, 

DS  WORD, 

DX  WORD , 

CX  WORD, 

AX  WORD, 

BX  WORD, 

FS  WORD. 

IP  WORD, 

CS  WORD, 

FL  WORD)? 


A I F  NOT  MCORTEX 

/***  MXTRtCF  *****  MXTRACE  *****  MXTPACE  *****  MXTRACE  ***/ 
/***  MXTRACF  *****  MXTRACF  *****  MXTR  ACE  *****  MXTRACE  ***/ 

CALL  0UT$LINF(PMSG26) ? 


$  F.  N  D I F 


/*  PRESENT  v'ALU*  CF  SPEC  I  FI  ED  SEQUENCER  AND  I  \C  R EMENTS  rtTS*/ 
'*  S  FCU’NCER  -  8  POINTER  I  S  P«SS™  TO  PROVIDE  A  BASF  TO  A  */ 

'*  V  4F I  8  BLF  I *  THF  CALLIN';  POUT  IMF  E^R  PASSING  THE  rfETURS  '7 
/*  V  ALU  r  MCK  Tr  TH r  CALLING  ROUTINE.  */ 

/* - - - -  / 


/*  CALLS  MADE  TO;  0 U T $ L I N F 

!  3Cf  y« :'r  #  2;:  £  y<  sjc  :J:  rjc  y:  #  y:  yc  3|c  #  #  j) c  yc  3;:  yr  yt  y*  yt  y*  y:  3^  y?  ^  y:  ;R  j*c  yc  ys 


V  V  t'  *»  •  *i‘  »r  v  t  V  '1"  v  »«• 


TICKET:  ?RCCEDUEE(  S  E  Q  $  M  A  M  F  ,  PETS$PTrf  )  REENTRANT  PJ3LICI 


D  F  C  L  A  H  F 

SEQSN AM  r 
SEOTBL$ INDEX 
(.  tTS  $  Trr  ° 
SEQSVA.LUFSR^T 


PYT  F. 

BYT  F  , 

POI MTFP , 

P»SVT  RETSSPTR  word: 


/*  ASSERT  GLOPAL  LOCK  */ 

DO  WH  ILF  LOCKSET(OGLOBA.L$  LOCK, 119)  5  END,* 


SIF  MOT  MCORTEX 


/***  MXTEACF  *****  MXTRACF  *****  MXTP.ACE  *****  MXTr.ACL 
/***  MXTRACE  *****  MXTRACF  *****  MXTRACE  *****  MXTRACE 


V  *  5.*  / 


CALL  0UTSLIM7(«MSG24) ? 


SENDIF 


/*  OETAIN  SFO$NAMF  INDEX  */ 

S  EOT  BLS  INDEX  =  LOCATEiSEQ(  SEQSNAMF  )  5 
/*  OBT  A  IN  SEQUENCER  V»LUF  *  / 

S  EOS  V  ALU  F$  R  FT  =  SFQSTABLE(  SEOTBLSINDEX  ).SEO$VALUEJ 
/*  INCREMENT  SEQUENCER  */ 

S  P  OS  TABLE(  3FOTBL  S I NDFX  J.SFOSVALUE  - 

SFO  STABLE^  S^OTPLSINDFX)  .  SFO  S  V  A  Lli  L  +  1  I 

/*  UNLOCK  THE  GLOBAL  LOCK  */ 

GLOBALSLOC v  =  0  ; 

RETURN? 

end;  /*  TICKET  PROCEDURE  */ 


/  * 0 7  2 7 ******************************  *  * *  *  *  ** * 
/*  CPFOTESPROC  PROCEDURE  BREWER 


8-18-84 


/* - 

/*  T HIS  PROCEDURE  CREATES  A  PROCESS  FOR  THE  USER  AS 
/*  SPECIFIED  BY  THE  INPUT  PARAMETERS  CONTAINED  IN  A 
/*  STRUCTURE  IN  THr  GATE  MODULE.  THE  PARAMETER  PASSED 
/*  IS  A  POINTER  WHICH  POINTS  TO  THIS  STRUCTURE. 

/*  INFO  CONTAINED  IN  THIS  STRUCTURE  IS:  PROCESS  ID, 


*/ 

*/ 

*7 

*/ 

*/ 

*/ 

*/ 

*/ 


/  #  0  f-'  3  1  *  ^  ^  #  t? V-  #  <«  *  *  #  S'  $  *  -;■■  *  #  *,'  &  >;:  V  #  #  *  $  :*  #  #  $  V  s|:  -f  *:■ *;  r;. :;;  v  -',<■  -r  ■:•  ■:■ 

/*  C  ■’ EAT^S  rQ  PROCEDURE  BREWER  c  1R-84 

y.; _ _ _ _ _ _ _ _ 

/*  CREATOR  nr  I N  T  SR  PROCESS  SrQUENCER  PRIMITIVES  FOH  ITS 
/*  P R 0 3 R r S  .  r -■  5 a t v 5  A  SPECIFIED  SEQUENCER  AND  INITIAL 
/*  IZFS  IT  TO  0,  BY  ADDING  THE  SEQUENCER  TO  THE  END  OF 
/*  SEQUENCER  TABLE. 

/*  CALLS  MATE  TO :  OUT$LINE  0*JT$CHA«  */ 

/*  OUTtHFX  */ 

/  ###  -  #  #  $  £  #  £  £>;:!{:  Jr*V*5rSr  / 

C:tEATE$SEO  :  PR  OC  EDU’-'E  (  N  AM?  )  REENTRANT  PUBLIC? 

DECLARE  NAME  BYTE? 

/*  ASSERT  GLOP a L  LOC^  */ 

DC  WHILE  LOCKSET  «GLOBAL$LOCIT  .119)  ?  ENT? 

‘IF  NOT  M  C  0  r  T  E  X 


/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

CALL  OUT$L  I  NE(  (AMSG25)  ? 

CALL  OUTLHEX (NAME) ? 

CALL  OUT$CPAMCR): 

CALL  OUTSCHAR (IF) ? 

Send  i  f 


IF  /*  THE  SEQUENCER  DOFS  NOT  ALREADY  EXIST,  IE  */ 
LOCATF$SEO(NAME)  =  NOTSFOUND  THEN  DO? 

/*  CREATE  THE  SEQUENCER  ENTRY  EY  ADDING  THE  */ 
/*  NFW  SEQUENCER  TO  THE  END  OE  THE  S EQSTABLE  */ 
SEQS TABLE 'SEQUENCERS ) .SEQ$NAME  =  NAME? 

SEQST  A  ELF ' SEQUENCERS ) . SECS  V  ALUE  =  0? 

/*  INCREMENT  MUMPER  OF  SEQUENCERS  */ 
SEQUENCERS  =  SEQUENCERS  +  1? 

END?  /*  CPEA'T’E  THE  SECUFNCEP  */ 

/*  RELEASE  T^E  GLOBAL  LOCK  */ 

GLOB A  L$  LOC  K  =  0? 

FETUP.N? 

FND ?  /*  CREATE$SEQ  PROCEDURE  */ 


/  *  0  6  7  P  *  *  *  ****  *  *  *  *  #  #  $  &  v  #  $  $  *  #  s*  *  #  ❖  #  v  f-  #  *  *  *  y,'-  *  $  y,-- *•-  y;t  v  ^  v-  >;•-  v  #  v-  v  / 

/*  TICKET  PROCEDURE  B  h  EWER  b-lP-84  */ 

* - 

/*  I NTFR-VI  r-TIIAL  PROCESSOR  SEQUENCER  RPIMITIVE  FOR  USER  */ 
/*  PROGRAM.  SIMILAR  TO  ’TAKE  A  NUMBER  AND  WAIT.’  RETURNS-1/ 


HLWi I NTiFLA  D (  CPU  )  -  TRUE? 
disable;  output!  po^TiCA  )  =  d?y. ; 

CAL!  T I  MX’  {  i  1  ; 

OUTPUT  POP  T  $  0  A  )  =  reset;  enable; 
end: 

END;  /*  NORMAL  PRFEMT  */ 

ELSE  DO?  /*  ?REEMT  THF  MONITOR  */ 

/*  SFA.TF  V PM  FOP  ALL  ID'S  OF  0 FFH  */ 

SEAROHSST  =  0; 

DO  WHILE  IOCK-$SET(OOLOBALeLOOK,119)  !  END 5 
DO  CPU  -  "  TO  ( NR $ p  D S  -  1): 

SEARC^SFND  -  SFARCF$ST  *  N  R  $  V  P  S  !  OPU  )  -  1! 

/■■■■  SET  ALL  I  NT$  FL  AOS  FYCF?T  THIS  CPU'S  s;:  / 

IF  PRDS  .C?U$NUVBER  O  CPU  THEN 
HD'V  $  I  NT  £  FLAG  {  C^U  )  =  T^UEI 
DO  IWD^X  =  SFAPCH$ST  TO  SEARCH$ENDJ 
IF  VPM (  INDEX  ) . V  P  $  I D  =  VP$ID  THEN 
VPM(  INDEX  ) . S^A  TF  =  READY ; 

end;  /*  DO  */ 

SEAROF^ST  =  SF  A  RCH  $ST  +  MAX$ VPS$CPUJ 
END;  /*  ALL  MONITOR  PROCFSS  SET  TO  READY  */ 

/*  INTERRUPT  THE  OTHER  CPU'S  »ND 

RESCHEDULE  THIS  ONE  */ 

$  I F  NOT  MCOPTEX 

/v*-#  MXTRACF  *****  MXTP  *  CE  *****  MXTRACF  *****  MXTRACE  * 
/***  MXTRACF  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  * 

CALL  OUT $LI NF f PMSG17 ) J 

SFNDIF 

disable; 

OUTPUT (  POP TiC  A  )  =  hoh; 

CALL  TI MF ' 1 ) ; 

OUTPUT !  PORT$CA  )  -  R ES E,T’  * 

enablf; 

INDEX  =  P^TSVP; 

disable; 

PRDS  .  L  »  S'DiDUN  =  INDFX* 

VPM'  I NTEX  )  .STATE  -  RFADY; 

CALL  7PSCHFDULER;  /*  NO  RETURN  */ 

END*  /*  ELS17 

/*  UNLOCK  GLOBAL  MEMORY  */ 

SLOB  AL$LOCF  =  <?; 

return; 

end;  /*  prfempt  procedure  */ 


I 


/*  I  MG  err?  DOFS  NOT  TAKE  ADVANTAGE  OF  THE  FACT  THAT 
/*  CIJFPENTLY  IT  IS  THF  THIRD  ENTRY  IN  THE  VPM  FCR  EACH 
/*  RFAL  Pl-  OCESCR  . 

/* - 

/*  CALLS  MADE  T0:  OUTLINE,  VPSCPFPULEH 


/*'■ 


%  #  <o!t  s{c  it  5,-  *;•  >“  #  ^  *£''?*?*£  #  'I-  *?  &  t'  V  V  V  V  V V  V 


■■■■/ 

*/ 

—  */ 
V  V-  5|:  V  / 


PREEMPT :  PROCEDURE '  V?$ID  )  REENTRANT  PUBLIC; 


DECLARE  (VP*ID,SEARCH<ST,SEARCH$END, CPU, INDEX)  BYTE? 
$  I  E  NOT  MCOF.TEX 


/***  MX TRACE  *****  MXTRACE  *****  MXTRACE  *****  MX  TRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

CALL  OUT$LINE(  0MSG16  )? 


$  END  I  F 


IF  V  P$ ID  <>  0FEH  THEN  DO 5  /*  NORMAL  PREEMT  */ 

/*  SEARCH  VPM  FOR  INDEX  EOF  ID  */ 

SEAKCR$ST  =  0; 

DO  CPU  =  0  TO  ( NR$RPS  -  1  )  J 

SEARCH^  EN  D  =  SEAPCH$ST  +  NR$VPS(  CPU  )  -  1  J 
DO  INDVX  =  SEARCH$ST  TO  SEARCH$END5 

IE  VPM (  INDEX  ) . VPAID  =  VP$ID  THEN  GO  TO  FOUND; 
end;  /*  DO  INDEX  */ 

SEAPCHAST  =  SEARCH$ST  +  MAX$VPS$CPU,' 
end;  /*  do  CPU  */ 

/*  CASE  IF  NOT  FOUND  IS  NOT  ACCOUNTED  FOR  CURRENTLY  */ 

FOUND: 

/*  LOCK  TFF  GLOBAL  LOCK  */ 

DO  WHILE  LPCK$SET((?GLOBAL$LOCK,119)»  END 5 
/*  SET  PREEMPTED  V?  TO  READY  */ 

VPM;  INDEX  ). STATE  =  R^ADY; 

/*  MEED  HARDWARE  I NTR  OR  RE-SCHED  */ 

IE  (  C°U  =  PRDS . C PU$ NUMBER  )  THEN  Do; 

INDEX  =  RET$VP;  /*  DETERMINE  RUNNING  PROCESS  */ 

disable; 

PpDS . L ASTvRUM  =  INDEX; 

VPM(  INDEX  ). STATE  =  READY;  /*  SET  TO  READY  */ 

CALL  VPSCHEDULER;  /*  NO  RETURN  */ 
end; 

ELSE  DO;  /*  C  SUS  E  HARDWARE  INTERRUPT  */ 

ilF  NOT  MCORTEX 


/***  MXTRACE 
/***  MXTRACE 


*****  M  X  T  R  8  C  E  *****  MXTRACE  *****  M  X  T  R  A  C  E  ***/ 
*****  MXTRACE  *****  MXT R AC S  *****  MXTRACE  ***/ 


CALI  0UT$LINE(OMSG17) ; 


els r  do; 

«  =  H  +  1; 

IF  H  =  1  PH  T  H  F N  STOP  =  0«TH; 
end;  /*  FLSF  */ 
fmd;  /*  DO  WHIL^  -/ 

H  =  SFL  f  H,  4  )? 

FMD;  t*  DO  W FILF  */ 

found  =  o; 

DO  WHILE  MOT  FOUND; 

INCHR  =  RFCV$CHA.P; 
l  -  of; 
stop  =  0; 

DO  W w I L F  MOT  STOp; 

IF  ’  INCHR =ASCII  L))  O'.  ( I  MCHK-ASC  1 1  L  •’  L  )  )  THEM  DC; 
stop  =  offh; 
found  =  offd; 

CALL  SEND$CHAR  (  INCHR)  ! 

fmd; 

else  do; 
l  -  l  +  i ; 

IF  L  =  10H  THEN  STOP  =  OFFHJ 
END;  /*  FLSF  */ 

END;  /*  DO  WHILE  */ 
end;  /*  DO  WHILE  */ 

RETURN  (H  OR  L); 

END;  /*  IN$HEX  */ 


^2  00^ ■’1'^  frv  v*^  v  V  V ^  n •  v  ?!*  *1'  •)£ *r  *r*  «v*  y 

/*  OUT$HFX  PROCEDURE  BR EWER  B-18--84  */ 

/* - v  / 


/*  TRANSLATES  BYTE  VALUED  TO  ASCII  CHARACTERS  AMD  OUTPUTS-/ 


/*  THEM  THRO  THF  SERI  AL  PORT  ■*/ 

/* - if/ 

/*  CALLS  MADE  TO;  SEND$CHAR  */ 


/#*#  Jr  ijs*******  *  -^s’;  a*#****:  if  / 


CUTiHEX:  PROCEDURE  B )  REENTRANT  PUBLIC! 


DECLARE  R  BYTF; 

DECLARE  ASCI  I  (*)  BYTE  DATA  ( 'Cl234f 67B9ABCDEF  '  )  ; 


CALL  SEND$CHAD (ASCII i SHR(B,4)  AMD  0FH))5 
CALL  SFNDSCHA P •  ASCI  I ( B  AND  0 FH ) ) ! 

RETURN? 

end; 


/*  END  CONDITIONAL  COMPILATION  OE  PROCEDURES  NFF.DED  FOR 
MXTR ACE 


\b? 


APPENDIX  H 


LEVEL  I  MCOFTEX  SOURCE  CODE 

The  LEVEL  I  source  codp,  written  in  PL/M-86,  is  contairpd 
in  file  LEVFL1.SRC.  The  SUBMIT  utility  [Ref.  10]  is  used  to 
compile  either  MCORTEX  or  MXTRACE  versions  of  KOPE.  The 
MOOR  TEX  version  of  LEVEL  I  is  c  om  oi led  by  usins;  the  SUBMIT 
file  L1CMPM.CSD.  LEVEL  I  is  one  of  the  relocatable  code 
modules  shown  in  the  SURMIT  file  LNKKM.CSD  in  Appendix  C, . 
The  SUBMIT  file  LOCKM.CSP  is  used  to  locate  the  various 
'■nodules  to  file  KOBE.  After  transfer  to  the  multi-uspr 
CP/M-86  system,  the  code  is  saved  as  KORE.OPS  as  descrileo 
in  Appendix  A )  .  Analogous  files  are  provided  to  venerate 
KORE.TRC.  The  memory  maps  created  by  the  linger  and  locator 
are  included  at  the  end  of  this  appendix. 


X«>X  sC:**#*:* 


***  L1CMPM.CSD  SUBMIT  file 

sX  v  sX  Xc  X-'  sX  -r  A-  si:  sX  3X  X'  sj: Xc  cX  5|: #  X:  3X  X=  s|:  sX  Xc  :X  >X  sX  3jc  sX  sX  3X  sX  sX sX  c;c 
#  3X  3X sX  s;c  3X  3jc  sX  sX  =X  sX  :X  X=  =X  s;:  s;<  >X  3X  s;< 3X  sX  5'.'  sX  5|; sX  3;;  3X  sX  31:  >;:  >X  sjt  3X  s[c  if  ;;t 3X  if  :f  s;:  if  :;c  X=  3;: 


*  *  *  :X  V  =; 


:F1 : PLM86  : Fl sLFVELl .SRC  SFT(MCORTEX)  NOCOND  LFFTMAHGI N ( 7 , 

LARGE 

X=  if  sX  sX  3X  3X  3?  3|:  X=  3|:  sX  3|c  3;:  sXsX  3|;  if  if  if  if  if  if  if  3jc  if  3;:  :f  it  3|t  3',: if  if  j|c  3X  if  if  3,1  if  if  3|c  if  if  if  if  3X sX  if  t;t  if  if  3): ;X  if 
if  3X  3;;  sX  if  it  )X  3;:  5;;  3|:  3;;  if  -,f  sX  3;:  3;:  3X  if  if  if  3X  if  3j:  if  3|t  3;:  if  if  it  3;:  3;:  if  if  sjt  3,1  if  if  3;;  3;:  3',:  3',; if  i,t  if  3|i  i,  3;:  3|;  s',c  3|:  s',c  if  3X 

***  L1CMPT.CSD  SUBMIT  file 

$  $  a»c  #  #  a{c  5;:  #  sgoQe  #  $  #  if  #  jJ*  s£  #  yf  age  sg$  #  sgt  #  #  £  #  ;r  if  #  K'  ❖  ags  if  if  if  ye  if  ajs  if  3;  sgc  sf if ;J:  3;:  if  if  >;c 

if  ;|c  if  s|;  3|-  if  :‘t  jV if  a|s  :|c  jJc  #  r|c  s|t :|c  ;,*c  jJc  ^  ?;.*  ^  #  ;'r  ^  $  3^ 3jr  3;: : ■  V ;;;  3j;  ;‘. 

:  FI :  PLMP6  :  FI  : LFV ELI  .  S  PC  F FS  F.T  '  MCO  RTEX  )  NOCOND  L  FFTMM'G  1  N  ( 

LARGr 

3[:  3js  3|;  3jt  3^  if  if  3;:  3^  3|:  3^  3|;  3;:  3|:  if  if  if  if  if  if  if  s;c  s’,:  if  it  3;:  it  3^  if  it  if  3^  if  3;:  3',:  if  if  if  it  3;;  s;:  if  3;;  if  if  if  3;;  3;; if  if  if  if if  if  3; 

3|:  3l:  3;:  3)!  3|-  3^  3^  3^3;(  3^;  3|:  3;:  :|t3^.  ifitifififif  if  3  V  3^  s;.3^  3<o|<  3ft  3>:  y,;  it  3jt  3^:  if  if  3(3  3^  3,,  3^  3^  3^  s;t  3^  3^  if  3)3 3>  3;:  ififififif  3|:  s,v  3, 

LNKKM.CSD  SUBMIT  file 

S^Sr  >15#  3|:  3^  3^  3*  3^  3|;  V  3;:  3;:  3^-  3|3  3^  #  3|t  £  3^#  3;t  3,1  31 3J:  #3^  3jr  #  3{C  3^3  #  3jr  3;.  3^  3,'f  3,3  3^  Sjt  3^  3^  3^  3,1  if  if  if  3^  if  3|,'  3^  3l  if  3| 

3*3  3js  3';3ji  3|:  3^  3^  3^  3^3  3|;  3j3  St!  *Ir  !'  -i  ❖  *  I'f  if  3^  if  3|«  3;t  3l  3^  3;;  3^  it  if  if  <3  3j3  if  Sjt  if  3^  3^  3^  if  3?  3)3  if  3|t  3;j  3|3  3,3  3;;  3^  if  if  3|3  if  it  if  5; 

:  FI :  LI  NKP6  :  Fl  :I,FVFL1  .OBJ,  :  FI  tLFVFL2  .OBJ  ,  jFl :  SCHFD  .  OB  J  .  & 
:F1 :INITK. OBJ, :F1: GLOBAL. OBJ  TO  : Fl : KOrtE . LN K 

i;;  3}r  333  3)3  3|33^  Jf;  3)0^3;:  3>:s;:3(C  3^  3;3  3^  3|3  3;<  3^3!:  ^3  3|:  3^3(3  3(3  3VT3J:  3^  ,-S3;t  3,1 3<3  3|:3^  X?3r  3r  3)3  >r>r  3rn:  >13  3X3;.  3;:  3,3  X  3^  if  3,  ’  3,1  3,1  if  3,3  if  3 ;;  ;J 

'1'  '»*  V 

**  LNKKT.CSD  SUBMIT  file 

!X  3XSX  >x  *  #  « 3X  >x  3X  >x  3!s  3|3  3(s  3{S  3X  3{t  *  #  «  *  #  3(c  #  >;«  >x  >:=  if  if  if  *  A-  if  >;:>;«  3X  3;;  >;:  31  if  3;:  3X  i:  V  if  if 

>X  3j;  3|: >;c  3 X  3|:  3|t  if  if  if  sX  3X  sX  s|-'  3|:  3|;  31 3|:  3|:  sic  >X  <<  3X  >;<  3',;  sjc  if  if  if  if  if  if  sj:  if  if  sX  3X  31  :;c  3;.  if  if  if  >X  .,:  3;:  31 

Fl :  LINK8G  :  F 1 :  LFVEL1 .  OB  J  , :  Fl :  LF  VEL2  .  OB  J  , :  Fl :  S  CliFD 
Fl :  I NI TK  .  OBJ  ,  :  Fl  {GLOBAL  .0  PJ  TO  :F1 :  (COKE  .  LMK 


iv  V-  :  if  7'  s;c  if  if  >J:  yc  if.  if  j;c  i,i  s|;  >Jc  >;«  ^  3;  if  ^  j;:  if  « ;;c  if  5,*x  if  if  if  5/  i(. 

’f**  LOCFi^.CSD  SUBMIT  file 

if  ;|c  if  if  if  if  :f 5^  if  if  ;;;  #  ;;;  3^  5r  Sr  #  3^  ❖  >i'  #  5;?  if  if  if  if  3^  if  j|;  if  if  >;c  if.  if  if 

#  if  if  if  if  #  if  y:  ?f  j;s  if  if  if  ?f  #  if  If  #  ff  #  if  if  if  *  if  if  zf  ;f  if  if  :|c  :f  jj;  if  :f 


:Fl:L0Cft6  :F1:K0RS.INK  *  DDRFSSFS  SEGMENTS',  S. 

STACK  (0C55f)H )  ,A 

I  NITMOD_C()DF  (  04390H  )  ,A 

GLOBALMODULF  BATA ( O r5^0^K ) ) ) A 

SFGS  IZF ( STACK  7 5 H ) )A 

P FS FP VF ' OF  TO  0B6^FH) 


'A  AfAtA-A-Xf  X-  *X  'At  'A’-  3X  3X  s;c  v  f  :.t  « 3,1  %t  X' t-  X-  >X  >X  X:  -r  X"  >X  X-  X-  3J.  v'  =X  X<  X:  sX  :X  «  X-  X=  -X  =X  >X 


$$$ 

V  V  V  V  ^  V  V  V  *1*  V  •»* 

s*t  #  a|;  X  #  #  #  3;t  :;c  #  a;?  a;: 


>*<  *>' 
S'.  j*i 


LOCKT.CSD 

^ ^ 


SUBMIT  file 

v  #  v  *.*  v  *»»  V  »I»  ^  5»*  '>*  3!*  »!•  »r  r  ^  ■  'r 


VV  V 


*  *  ;J;  #  #  ^-: 


a;;  a^  #  ?;<  a;<  >{<  sj  *  #  #  >!«  *  #  *  #  5js  a;«  a£  a(o{c  ajc  *  #  a;s 


5,c  ajc  >;<  j;<  >;c  a|;  ^  aj<  ajt  *;  ?;c  a,<  a,;  a|c  v  a;: 


:F1:I,0CR6  :Fl:KORE.LNK  A  DDRFSSES  (SEGMENTS  (k 
STACK  (  0C5P0H  )  ,G 
TNITMOD_CODE(  043S0H)  ,& 

GLOBA LMODULE_DATA!0E53 00 H)  ))& 

SEGS IZF ( ST  ACK (75H)  )& 

RESERVE (0P  TO  0 A  BEER ) 


s'.;  #  3|:  ;'f  s!c  s|-.  if  s|t  3J:  j|:  :|c  3|<  s':  sj:  sj:  if  :!••  if  sjr  t‘,c  if  sjt  3|:  s;t  s;c  3j:  s|:  :;c  if if 3J: if  if  if  ••;.  if  if  if  if  if  if 

if  if  3;:  it  if  sj;  if  if  s|c  #  3;:  if if  3;:  if  if  if  if  3?  3;:  if  3£  j;:  if  if  3jc j( :  #  if  s|c  if  if  if  3;:  if  if if  3;:  if  if  if  :;c if  s;: if  if  if 

***  LEVEL1.SRC  file  *** 

'fi  if  if  if  3;:  if  if  if  3|;  ififififtfif  s5«  3{e  £ijc  s^c  if  i^:  if  if  if  3£3',:>;:  if  if  if  i.  if  if  if  if  if  if  if  if  if  if  >;•>;: 

s|c  if  3|:s^  s|:  if  if  3£  3;:  if  if  if  if  if  if  J|c 3{:  !jt  s;<  if  sjo;:  :(<  #  if  3;:  s(:  if  3jt  3i:  sj<  if  >;<  if  if  if  s;t  3;:  if  if  if  if  if  sj:  if  if  if  if  if  if  if  if  if  if  if  if  if  if 


/  if  0  0  07  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  *  if  if  if  if  if  if  if  if  if  Jr  if  if  if  :I-  *  ❖  v  if  if  .  if  if  'f  ❖  if  if  -'f  ■'.■ =;<  •!  J 

/  if  if  sje  s|:  if  if  3it  if  3j(  if  if  if  #  3[c  sjc  3je  sjc  if  <:  3;:  s}c  if  s’:  if  s;:  s’:  it  sj:  s;:  s^  s;c  s'.:  s{t  s(:  s(:  s;:  s;:  3;:  s;«  s;:  sj:  s(c  s;:  s|:  s;;  if  s;.-  if  if  >;e  s;:  s;:  3|:  if  s|:  if  / 

Jififififififififififififif  if  sj:  if  if  sj«  s;:  3[:  s^  3;:  s;:  s|;  3;-  if  if  if  i-  3;:  s;c  3^  s;c  sj:  s;t  if  if  if  s^  sjt  3^  sjt  s;-.  if  if  if  s;  s,c  >;c  if  s|:  3^  if  if  if  if  if  j 


/#  FILE: 
VFPSION  : 
PROCEDURES 
DEFINED  : 


LEVEL1 .SIC 
BREWER  8-1M-84 


RET$VP 
GETWOPK 
LOCATE$SEO 
S  «VE$CONTEXT 
MONITORiPROC 


RDYTRIS VP 
LOC  ATE$EVC 
IDLE$PROC 
GET$SP 


RFMARKS: 

(1)  WARNING:  SFV^PAL  OF  THE  LITERAL  DECLARATIONS  BELOW 
HAVE  A  SIMILAR  MEANING  IN  OTHER  MODULES.  THAT  MEAN¬ 
ING  IS  COMMUNICATED  ACROSS  MODULES  BOUNDARIES.  BE 
CAREFUL  WHEN  CHANGING  THFM . 


( 2  )  CONDITIONAL  COMPILATION  FACILITIES  ARE  USED  TO 
PRODUCE  TWO  OS  VERSIONS.  >CORTF.X  ’  PROVIDES  NO 
DIAGNOSTIC  ASSISTANCE.  WHEREAS  "MXTRACF."  PROVIDES 
DISPLAY  MESSAGES  ANNOUNCING  THE  FNT^Y  INTO  VARIOUS 
OS  PRIMITIVES. 

❖  / 

/3(ts^3i:3^3^«3!c3)C3::#s^*3::3p>?3t:3{t3)c3j:#3^#3{:3^3t:3^*3?3!:3::#3::3{:3S3;:^*3i:3::#3;;#3it3^3t:s1s5;'*!!-->::*  Xif  Xitififif  / 


Ll$MODULE:  DO; 


/  3'£  0 0  3  6  *  ^ s': 5':  i'  <•'  ^  if  :l!  if  3j:  3;:  if  sj:  if  s|:  if  if  s;:  if  3;;  sic  s|:  >Jc  s|:  if  if sj;  if  3^;|: 


/  3!e  if  3!:  if  if  if  if  if  s;:  3;:  if  s!:  3^  if  3|:  3{«  if  3^  sje  if  if  sp  if  if  if  sjt  if  if  ;|c  3{e  3;:  s;:  3;:  if  if  if  if  if  sj;  if  s|:  3;:  sjc  ft  if 

/*  LOCAL  DECLARATIONS 


*'•'  '!r  ^  *i;  5»'  :i'  3r  :i  '!  f 

a; :  a;:  ;|a  a(:  ajc  a{?  a{<  a;:  f 

a./ 


DECLARE 

MAX^CPU 


LITERALLY  '10', 
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MAX$VPS$CPF 

LITERALLY 

'10', 

M  A X  $  C  PU  $  $  i-  M  A  X  $  V  P S  $  C 

LITER  ALLY 

'100', 

FALS  s’ 

LITERALLY 

'0', 

.rE«DY 

literally 

'1'. 

RUNNING 

LITERALLY 

'3'  , 

WAITING 

LITERALLY 

'7', 

TFUE 

LITER "LLY 

'119'. 

NOT$FOUND 

LITERALLY 

'2fc5'f 

PCRT$C? 

LITERALLY 

'  0  0  C  0  H  ' . 

PORT  Ac 2 

LITERALLY 

'  0  0  C  2  H  ' , 

PORT  $  Cr 

LITERALLY 

'00CF.H', 

PORT  A 

LITERALLY 

'00  CAR  ' , 

RESET 

LITERALLY 

'a' 

1  » 

I NT$ RETURN 

LITERALLY 

'77H ' , 

'  MCORTEX 

**  M, CORTEX  **** 

MCORT  FX 

*****  MCORTEX  **** 

**  MCOp TEX  **** 

MCORTEX 

*****  MCORTEX  **** 

I DLE^STA  CFiSEG 

LITERALLY 

'0C5DH  ' , 

I DLF$ST ACF$**S 

literally 

'0C5D0H ' , 

INITSSTAC»C$SEG 

LITERALLY 

'0C65H ' , 

INIT$STACK$ARS 

LITERALLY 

'0C65CH '; 

MCORTEX 


/***«  MCORTEX  ****  MCORTEX 
/****  MCORTEX  ****  MCORTEX 


LITERALLY  '0C65CH  /******* 
*****  MCORTEX  ****  MCORTEX  *** 
*****  MCORTEX  ****  MCORTEX  *** 


j  "!*  V  V  v  ■<'  v  v  ^ 
/******;;:?;<  / 

/  *  V  £  *  *  *  *  <«  / 
/**&****■*/ 
ETEX  ****/ 


$ELSE 

/****  MXTF *CF  ****  MXTRACF  *****  MXTRACF  ****  MXTRACF  **1 
/****  MXTRACF  ****  MXTRACE  *****  MXTRACE  ****  MXTRAC  h  **’ 
I  DLF$ST  A  OK$SEG  LITFRALLY  '0C63H', 

I DLF$ST A  CX  $  A  BS  LITFRALLY  '0C63OH', 

INIT$STACK$SF3  LITFRALLY  '0C6BH ' , 

I  N  IT  ^STA  CK'?  A  CS  LITERALLY  '0C6B0H', 

MONITOF$ST»rK&SF'?  LITFRALLY  '0C73H', 

MONITOR  $STftCKS  A  ??  LITERALLY  '0C730?!'; 

/****  MXTRACE  ****  MXTRACF  *****  MX  TRACE  ****  MXTRACE 
/****  MXTR  fl  CE  ****  MXTRACE  *****  MXTRACE  ****  MX  lit  AC  F 


$  END  IF 


/  #  0  ?  B  6  * 5,:  *•  *  *•'  *  * : 


/# 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


PROCESSOR  DATA 
INEOi. M'TION 
PROCESSOR  ON 


#  3^  #  >JC  3^  #  S{!  3jt  3ti  #  3(1 3JC  #  #  Jjt  3^  #  SjC  >JC  3jt  3j:  3jS  #  #  3;:  3j<  $  j;  #  J(:  n*  SjC  V  #  #  *r 

SEGMENT  TABLE 

RELEVANT  TO  THE  P» RT I C  J  LA  R  PHYSICAL 
VHIC'-t  IT  IS  RESIDENT. 


**/ 


-■/ 

'■-/ 


CPUSNUMBFP : 
VP^STADT: 


V  P  $  E  M  D  : 

VPS$P Fp$C?U: 


L AST  $ RUN  : 


COUNTER 


UNIQUE  SEQUENT I AL  NUMBER  ASSIGNED  TC 
THIS  PEAL  PROCESS  OR. 

VP m  INDEX  OE  THE  FIRST  VIRTUAL 
PROCESS  ASSIGNED  TO  THIS  REAL  CPU. 
INDEX  IN  VPM  OF  LAST  VIRTUAL... 

THE  NUMBER  OE  VP  ASSIGNED  TC  THIS 
RE*  L  CPU.  M»X  IS  10. 

VPM  INDEX  OE  THE  PROCESS  MOST 
RECENTLY  SWITCHED  F-PM  RUNNING  TO 
EITHER  READY  OR  WAITING. 

AN  ARBITRARY  MEASURE  OF  PE  -  FOR MANGE . 


’•7 

*/ 

if  / 

/ 

•r/ 

*  / 
*  / 

*/ 

if/ 

if  / 


'  / 

'-■  / 
if/ 


COUNT  MADE  WHILE  IN  IDLE  STATE. 


3.* 


/ 


DECLARE  PROS  STRUCTURE 

( CPU$NUMBER  BYTP, 

VP$ST  APT  BYTE, 

VP*?  END  BYTE, 

VPS$PFF$CPU  BYTF, 

LAST$RUN  BYTE, 

COUNTER  WORD)  PUBLIC  IN  IT  I AL ( 0 , 0 , ? , 0 , 0 , 0 ) ? 


/#01  1  JjJ  *  n«  *f  *  #  $###  if  if  if  if*ififififi**ififif**ififififitiifir.ifififififififiif  *  if  if  ififif  *:«»;«  ##  if  V  si-  / 


/*  GLOBAL  DATA  BASE  DECLARATIONS 
/*  DECLARED  PUBLIC  IN  EILF  'GLOBAL  .SRC  " 

/*  IN  MODULE  'GL03 A L$ MODULE  ' 


'  / 
#/ 


v 


DECLAFE  VPM  f  M » X* C?U*$ $ A X$ VPS  $  CPU  )  STRUCTUBF 


( VPSID 
STATE 

VPt?°TCFTTY 

FVC^TPR^AD 

EVC$AW$VALUE 

SP*  prr; 

SS$R  r0 


BYTF, 

BYTE, 

BYTV , 

PYTP, 

W  0  p  D , 

WOPD, 

WORD)  EXTERNA  Li 


D  ECL A  "E 

CP(J^  I  v  T  "  BYTF  FXTEPN  A  L  , 

HDW$INT$FL.*G(  MAX$CPU  )  BYTE  EXTERNAL, 

N  R  $ V  PS (  MAX$CPU  )  BYTF  EXTERNAL, 

NR$*PS  BYTE  EXTERNAL, 

GLOBALSLPCF  BYTE  EXTERNAL; 


D  rrr.A :  F 

FV r\'TS  BYT11'  EXTERNAL, 

EVCiTPL'100)  STRUFTURF 
(7VC*N«M7  BYT7 , 

V»LUE  WORD , 

RVmoTEAa.DDR  word, 

TFRE  SD  BYTF  )  EXTERNAL! 

DECIAFE 

S  EOUENCFRS  BYTF  EXTERNAL, 

S  EO^T f  FLE ( 100)  STRUCTURE 
( SEQ$N  AMF  BYT7 , 

SFOiVALUS  WORD)  EXTERNAL  I 


/'•  DECLARATION)  0 F  EXTERNAL  PROCEDURE  REFERENCES 


/#  THE  FILE  amd  MODULE  WHERE  TR7  Y  ARE  DEFINED  ARE 


/*  LISTED. 


INITIAL$P»0C:  PROCEDURE  EXTERNAL;  END ; 

/*  IN  FILE:  ’  INITKE.S^C  */ 

'*  IN  MODULE:  I  MT$MOD  */ 

AWAIT*  PROCEDURE  (  FVC  $  I  D ,  AW  A  IT  ED$V  A  LITE  )  EXTERNAL! 
DECLARE  EVC$ID  BYTE,  AW AITEDi VALUE  WORD* 

end; 

V PSCHEDULF7 :  PROCEDURE  EXTERNAL!  END* 

/*  IN  FILE:  SCHED.AS"  */ 

DECLARE  INTVEC  LAPEL  EXTERNAL; 

/*  IN  rILE  :  S CHET . A S M  */ 

DECLARE  I  MTR$  VECTOR  POINTED  AT(OllOH)  I N  IT  I  AT,  ( •'“I  NT  DEC  )  ! 
/*  IN  FILE:  SC  FED  .ASM  */ 


/  *f  0  1 7  1  *  *  *  *  *  *  *  *  *  *  *  *  *  >'r  *  *  If.  *  *  *  *:  >■,: *  »*  *  *e  *,<■  ^ if. *  *  if  s|t  if 

/*  th^S7  DT  4  GNOSTIC  M7SSAG7S  “i»Y  EVENTUALLY  BE  REMOVED. 
/*  THE  UTILITY  7ROrEDUc7S,  HOWEVER,  ARE  »LSC  USED  H  T" 
/*  MONP’Or  Pr OC VS S  .  T«EY  SHOULD  NOT  BE  uEMOVED. 


*/ 


S I F  NOT  MCORTEX 

/****  MXThACE  ****  MXT^ACF  *****  MXTRACE  ****  MXThACE  ****/ 
/****  MXTRACE  ****  MXTRACE  *****  MXTPACF  ****  MXTRACF  ****/ 


DFCLARF 


M3G1'*)  °YT’F 
mSGIA:*)  F  YTr 
MSG4'*)  BYTF 
MSG4A;*)  PYT7 
MSG?!5^  BYTF 
MSG7A(*)  BYTF 
MSG7B { * )  FYTF 
MSG10 ( *  )  BYTF 
MSG11(*)  BYTE 
MSG1 2 ( * )  FYTB 
MSG20 '*)  FYTB 
MSG22 ( * )  FYT7 
MBG23 ; * )  BYTF 
MSG24 ( *  )  BYTF 


INITIAL  (  '^NTFRING  PETiVP  '.13,10,  '?'). 
INITIAL  (  '  RUN^INGSVPSINDEX  =  6'). 

INITIAL  (  'ENTERING  PDYTKIS  V  P  '  .1  3 . 10  ,  '  ) 

INITIAL  ('  SFf  VP  TO  ^EALY :  b?  =  t 

INITIAL  ('ENTERING  GFTWORK ' ,13 . 10  ,  '%  ' )  , 
INITIAL  ('  SET  VP  TO  RUNNING:  V?  -  ?. 

INITIAL  ('  SELECT  EL  $IiBR  =  %'), 

INITIAL  ('ENTERING  IDLE$VP  ',13,10,'?'), 
INITIAL  ('UPDATE  IDLE  COUNT  '  ,  13 , 10 ,  '% ' ) 
INITIAL  ('ENTERING  K  F;RNF  LSI  M  T  ' ,  10 , 13 ,  '  V 
INITIAL  ('ENTERING  LOC*'TE$FVC  '.10,13,' 
INITIAL  ('FNTFRING  LOCATESSFC  ',10,13,' 
INITIAL  ('  FOUND' ,10,13. 'V;' )  , 

INITIAL  ('  NOT  FOUND', 10, 13.'?'); 


DFCLA.RF 

CP  LITERALLY  '0DK ' , 

LE  LITFR  *-LLY  'P»H'? 

OUT^ CHAR :  PROCEDURE'  CHAR  )  EXTERNAL? 
DECLARE  CHAR  BYTV? 

end; 


OUT$LINF:  PROCEDURE'  LINF$PTR  )  EXTERNAL? 

DECLARE  LI NE$PTR  POINTER? 
end; 

0UT5NUM:  PROCEDURE (  NUM  )  EXTERNAL; 
DECLARE  NUM  BYTE; 

end; 

OUTSDNUM:  PROCEDURE!  DNUM  1  EXTERNAL? 
DECLARE  DNUM  WORD? 

end; 

OUTSHEX:  PRCCEDURE(F)  ^XTBRNAL? 

D E C L A  P  7  B  bvTF; 

end; 

INSCHAR:  PROCEDURE  <  R7T$PTR  )  EXTERNAL; 
DECLARE  pET*?TR  POINTER; 

end; 


I N$DNUM :  PROCEDURE  (RET$PTR)  EXTERNAL  5 
DECLARE  RFT^PTR  POINTER? 

end; 

IN$N'JM:  PROCEDURE  ( PETiPTR )  EXTERNAL? 
DFCLA.RF  ^FTSPT  P  POINTER; 

end; 
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<1-0 


/*:-x=x--  v  x  T  •  A  0  E  ;,f MXTDACV  * * ■' x*  '“"XTEACH  * x= v ^XTEACr’  / 

AFM  DIE' 


/  *  7  2  4  5 *  *  * * *  ’•'•  X' X"  X-  #  #  *  Xt  #  *  X=  X«  sjt  X«  *  X*  X=  ^^^^X-X'X^X:  X=  X«  *  X^  *  X=  X<  X=  ■'  X=  X*  X:  s?  :;e  X=  X-  X'-  :;•  s;s  X:  ' 


/*  STACK  DATA  &  INITIAL!  ft  Z*”!  ON  FOR  SYSTF”  PROCESSES 

DECLARE  I DL^iSTA  CK 

STRUCTURE 

:  LFNOTH (  33CH) 

WOF  D  , 

RRTiTYPF 

WORD, 

np 

WORT  , 

DI 

W  0  r  P  , 

SI 

WORD  . 

T)S 

WOFD, 

DX 

WORD  , 

cx 

WORD, 

*x 

WOFD, 

PX 

WORD, 

FS 

WORD, 

START 

PCI  NT  FP ,  /*  IP.CS  */ 

FL 

W 0 3 D )  AT ( I DLK$STACK  $A  PS ) 

IN  ITT  M( 

7 ,7 ,7 ,7 ,7 ,7  ,7  ,0  ,7,0! 

,7, 7, 7, 7, 7  ,7  ,7  ,7,7, 7,7, 7,7,7, 

7,7 ,7,” ,? ,7, 7, 7,7,° 

,7 ,7 ,7 ,7 ,7 , & ,7 ,7 ,7 ,7 , 7,7, 0,0, 

I NTSRFTURN  ,7  AH , 0 , 3  , 

•?,  *,7, 7,7,7, 01  DLE$PF.0C,233H  )  J 

DECLARE  INIT^STACK 

STRUCTURE 

( L  FNGTH( 77>7H ) 

WOr'D, 

RFTSTYPF 

WORD  , 

HP 

WORD, 

di 

WO°D  . 

SI 

WORD, 

rs 

*0°D  , 

DX 

WOFD. 

CX 

WORD  , 

AX 

WORD  , 

PX 

WOFD, 

WORD, 

START 

POINTFF,  /*  IP.CS  */ 

FL 

WORD)  AT(INIT$STACK$ABS) 

INITIAL! 

7, 7, 7, 7, 7,™, 7, 7, 7,® 

,7, 7,7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 

7  ,7 ,7 ,7  ,7  ,7 ,7  ,7  ,7,  ,7 

,7 ,7 ,7  ,7 ,7  ,7  ,7 ,7 ,7 ,7 ,7 ,7 ,7  ,7  , 

I*JT$FSTIiP'J,7»Ht0.«\ 

7,7,^ ,7,0,7,Ql  g IT  I AL! PRO C, POOH 
/*  230H  SFTS  THE  IF  FLAG  *  / 

MF  NOT  MCO”TEX 

159 


/***♦  MXT-A.CF  ****  ^XT HA C r  *****  KXTRA.CE,  ****  MXTHACE  **** / 
/****  MXTRACV  ****  ^XTRACF  *****  MXTRACE  ****  KXTHACF  **** / 

r E C  L  *  B  F  MONITCRSSTACF  STRUCTURE 


(LENOTH(  030111 
RET$TYPE 

■Rp 

DI 

SI 

rs 

PX 

rx 
*  x 
?x 

FS 

ST#  PT 

INITI «L( 


WORD  , 

WORD, 

WORD  , 

WORD  , 

WORD  , 

WORT  , 

WORD  , 

WORD, 

VO*D, 

WORD  , 

WORD, 

POINTER, 

WORD  )  AT ( NON  I TOR  $STACK$ ABS  • 


0,0. 0.0, 0,0, 0,0. 0,0, ^,0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

0 ,0.0  .0,0,0 ,0 , 0,0, 0,0, 0.0, 0.0, 0,0, 0,0, 0,0,0, 0,0, 

INT$  RETURN , ^ AH ,0 , 0 .0 , 0 , 0 , P ,0 , 0 , OMON I70R $PROC ,20?H  ) i 

/****t  MXTRAC^  ****  MXTRACE  *****  MXTRACF  ****  MX  TRAC  E  ****./ 
/*■■■**  MXTRACF  ****  MXTRACF  *****  MXTRACE  ****  MXTRACF  ****/ 

SEND  I F 


/*031  c j;-. 3|:  j’i  #  ?!;#>;« aj;  :;t j*s sjc s;«  #  3(c sjc >|: 3^ / 

/  if  fr  *  sK  #  if  #  #  ip  #  *  #  5^  5'r  tf  >!*  *  ’Is  >!<  5|:  #  if  if  J|c  #  *  #  #  #  s)c  #  SJs  >Js  ;|c  >Ji  s|«  s);  ;|c s;c  s|:  if  s|t  sj; ;;;  / 

/*  PET  $ VP  PROCEDURE  BREWER  B-1R-B4  */ 

/* - */ 

/*  USED  BY  TFT F  SCHEDULER  TO  FIND  OUT  WFAT  IS  THE  CURRENT  */ 
/*  RUNNING  PROCESS.  IT'S  I N DFX  IN  VPM  IS  RETURNED.  */ 

/*  CALLS  MATE  TO:  OUT$HEX  OUTiCH.AiJ  */ 

>lt  j;;*  *;>!: sits’,.:?!! sltsls if  if  if  if  if s*  # sics;*# sjc sj;SIcs£ if  if  if  sjcsjtsl; -f sjt  if if  V- i- 'f  vsjts.csjt  i- V  • 


R  FT  3  VP:  PROCEDURE  RVTE  REENTRANT  PUBLIC; 
DECLARE  RUNNINC$VPtINrEX  BYTE; 


$IF  NOT  MOO  :  T  ?Y. 


/****  v X T ? A C E  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 
/**•*  MXTh ACF  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 


CALL  OUT$LINF(PMSGl  )  ; 


tFNDIF 


,'*  Sf*»CF  THF  7P  MA?  POT-  RUNNING  PI0CF5S  IND^X  */ 

DO  PUNNINC4VP4INDFX  =  PRDS  .  V?$START  TO  PR  PS  .  V  P$  END 
IF  V?M(  RUNN  I  NG$  VPi  I  M?EX  )  .STATE  =  RUNNING 
THrN  GO  TO  F^UNPJ 

end;  /*  oo  */ 

RUNNING$VP4INDrX  =  PRDS  .  L » S  T$  I  lj  N  ; 


FOUND: 


4IF  NOT  MCOFTEX 


/****  MXTRACF  ****  MXTR A  OF  *****  MXTRACF  ****  MXTRACF  ****/ 
/****  MXTKACE  ****  MXTRACF  *****  MXTRACF  ****  MXTRACF  ****/ 


CALL  OIIT$LINF(0MSG1A); 

CALL  OUT$HFX(  RUNNINGA-VP^IMDEX  )  ! 
CALL  OUT$CF«R(CR)  ! 

CALL  OUTSCRAR (LF>  : 


•pFNDIE 

PETURN  PUNNI NGiVP* INDFX ; 
END!  /*  RET$ VP  PROCEDURE  */ 


/ *  ? 3  6  6 ************************************************  *  * *  * !!  / 
/*  RDYTFISV?  PROCEDtJFF  BREWER  9-18-84  */ 

/* - */ 

/*  CHANGES  A  VIRTUAL  PROCESSOR  STATE  TO  READY  */ 

/* - V 

/*  CALLS  MADE  TO:  OUT$H*X  OUT$CH»P  •  */ 

/  #  *  #  >!*•  >1=  *  *  #  *  #  *  *  #  £  *  *  <-•  #  #  <:  *  #  s>  #  >*  *  *  *  *  *  #  «  #  #  #  *  *  i,-  *  #  s*  *  £  $  #  s;.-  <s  *  #  *  >;<  s',--  *  >?  ^  fr  / 


RDYTHIS VP :  PROCEDURE  REENTRANT  PUBLIC! 


$  I F  NOT  MCOLTEX 


/****  MXTRACF  ****  MXTRACF  *****  MXTRACF 
/****  MXTRACF  ****  MXTRAC'*  *****  MXTRACF 


X  *  *  A‘ 


M  X  'I  R  A  C  £ 
MX  1’ t-:  ACE 


CALL  0  U  T  $  L I  N  E  ( (* M  S  G  4  )  ! 


$  END  IE 


PR  DS . L A  ST$RUN  =  R*T$VP;  /*  SAVE  INDEX  */ 


ME  NOT  MC  CRT  EX 


/****  MXT:  ACE 
/****  MXTRACF 


****  MXTRACF  *****  MXTRACF  **** 
****  MXTRACF  *****  MXTRACF  **** 


MXTPACF  ****/ 
MXTRACF  **=■*/ 


CALL  0UT$LINE(PMSG4»); 


CALL  OUT$HT'X  (  PR  DS  .  L  A  ST  $  RUM  )  ; 
CALL  OUTSCHA  R  (  CR  )  5 
CALL  0  U  T  $  C  F  A  R  (LF)  J 

avnihif 


VPM(  ?RDS.LAST$R1JM  )  .ST  A  TP  =  R  PAD  Y  ; 

return; 

EMP;  /*  KDYTHIS VP  PPOCFTHJFF  */ 


/  i~s  a  rt  a  %*«  *•»  »•-  »•<  «*•  »■»  *•*  >•*  •*»  x  *i»  *•»  «•/  *<»  »»#  v*  »**  **•  V*  x  ,*/  ><•  y<  *«*  »■/  *•»  »>/  x  j.  x  ■  x  o  v<  ***  o •  •*«  »'<  *i»  «v  x  *'*  •'»  / 

/  n*  C/7  ^  T  'i*  '4*  *i%  v  -*v  '4*  *i-  v  v  »i'  v  V  v  t  ■'I-  'i'  -»*  or  v  o-  '>*  *r  or  o*  A*  *i»  *r  '<*  *r  'i*  *,»  *.»  v  »«•  'i»  *.*  -r  »*»  o*  -i-  O'  *%*  •&  -r  / 

/*  SAVFCOMTEXT  PROCEDURE  BREWER  8-18-84  / 

/if - -/ 

/#  SAVES  CURRENT  STACK  POINTER  AND  SEGMENT  IN  VPM  V 

/* - */ 

/#  CALLS  M  AD  v  TO:  RET$VP  */ 

y  aji  ;,c  #  i|c  #  5j;  j|;  sj-.  t\z  sj.  :V:  sj:  #  3j:  5|:  3|t  3,*c  ?|c  >}:  ;J; 3|:  :Jc  sjc  i|:  ;V  j,c  jjc  3]:  >;«  sR  ^ 


SAVECOMTEXT:  PROCEDURE  ( STACK$PTR  ,  S  T A  CK  $S  EG )  REENTRANT 

public; 

DFCLAFE  (ST»CK$PTR,  STACK<SEG)  WORD » 

IF  PRDS  .  LAST^RUN  <>  255  THEN  DO,*  /*  IF  ENTR  {  IS  NOT  */ 

/*  FROM  KORE  START  */ 

VPMi  PRDS  .LAST^RUN)  . S  P$  R  EG  -  STACK$PTR5  /-SAVE  STACK-./ 
VPMiPfDS .L*ST$RUN) .SS$RFG  -  STACK$SFGJ  /*  STATE  */ 

end; 


end; 


/*0426*s!s  —  —  K5*##*-***-'#’!'5!5#**’!'**###^*#*#*##!1!'*#*#^#****#*#***  -f  if  if  >f  if  / 

/*  GET$SP  PROCEDURE  BREWER  8-18-84  <■/ 


/* - / 

/*  R  FT  URNS  STACK'  POINTER  OF  CURRENT  PUNNING  PROCESS  AS  V 
/*  SAVED  IN  THE  VIRTUAL  PROCESSOR  MAP  -/ 


*/ 

:  *  *  if  if  *  *  *  *  jJ:  if  *  if  if  if  *  if  / 


/#  CALLS  made  TO:  R^T$VP 

f  # : r  :I:  A-  A'  A'  sjs  A: :Js  A’ V  ^  ;‘r  3,';  3,’C  3,‘-  3):  :|c  aj; 


GFT$  SP  :  PPOCFDUI'E  WORD  P  F  E  N  T  F  a  N  T  PUBLIC? 

DECL ARr  M  BYTE? 

N  =  RET^VP;  /-  GET  CURRENT  RUNNING  VIRTUAL  PROCESSOR  5V 
RFTUPN  V  PM ( N 1 . S  P$  R  EG  J  /*  RETURN  NEW  V?  STACK  POINTER  -/ 

end; 
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/*04  tK.  ******** 
/*  GETVOi  K 

/  * - 

/ d?T v - M I  NFS 


efoce^upF  3EEWFR  H-19-84 


THE  MVXT  ELIGIBLE  VIRTUAL  PROCESSOR  TO  HUH 


/* - 

/*  CALLS  MADE  TO:  CUTSCpse 

/  y: y:  y: y; y; y: y-  y: y; y:  y.  y:  y-.  y«  y:  y«  yt  y-  yc yj  yr  yr  y;  yc 


nUTSLI \E 

y:  cy  :y  y:  yr  y;  yc  y;  *  y; 


CUTSDN.J^ 


*/ 

*/ 

*/ 


0  eTWORK  :  PROCEDURE  WORD  RPTNTR  A  NT  PUBLIC; 

DECLARE  (  ?  R  I ,  M  ,  I  )  PYTe; 
DFCLAFE  SELECTFDADBR  WOFDI 
DECL "RE  DISPLAY  BYTE; 


SIP  NOT  MC  OPT  EX 


/*v**  M X T B  ACE  ****  MXTRACF  *****  MXTRACF  ****  MXTrACF  v**> 
/****  MXT-ACE  ****  MXT?ACV  *****  MXTRACE  ****  MX  TRAC  <'  **:-‘> 


CALL  OUTSLTNF '^MSG7) ; 


SEND  IF 


PHI  -  255? 

DO  /*  S e A R C p  VP M  EOF  ELIGIBLE  VIRTUAL  PROCESSOR 
TO  RUN  */ 

I  =  PRDS . VDSST  flFT  TO  PEDS . VPS  FND I 

IF  /*  THIS  VP'S  PRIORITY  IS  HIGHER  THAN  -’RI  */ 

'  !VPM(n.  VPSPPIORITY  <=  PR  I)  AN  L 
( VPMf I ) .ST»TF  =  PF*DY  )  )  THEN  DO! 

/*  S ELECT  THIS  VIRTUAL  PROCESSOR  */ 

ppi  =  v?m( i ) . vpSpriority; 
n  =  i; 

end;  /*  if  */ 

fnd;  /*  do  loop  search  oe  vpm  * ' 

/*  SVT  SELECTED  virtual  processor  */ 

VPM' N  )  .STATE  =  PUNNING; 

SFLECTFDSDBE  =  VPM( N > . SS*BEG ; 

SIF  NOT  MCORTEX 

/****  M  X  T  R  A  C  K  ****  ^XTRACF  *****  MXTRACE  ****  MXT-'ACF  ****/ 
/***#  MXTRACF  ****  MXTRaCF  *****  mxTP  ftCF  ****  M  X  T  f  C  E  ****  ‘ 
CALL  0UTSLIN7 (3MSG7A ) ; 

CALL  OUTSHEX ( N ) * 

CALL  OUTS  CP ap (CP)  ; 

CALL  OUTSC-TAR  (LF)  ; 

CALL  OUTSLINE  (R>MSG7P  )  J 
CALL  OUTSDNUM(SEL,ecte’',Sdbf)  ; 
nATL  OUTSCPAR 'CR  )  ; 

C A LL  cu^SCPAP^LF)  ; 

4  F  N  D  I  F 


1P3 


w 


ISIS  II  MCS-an  I/TA  Trc  ,  VI. 1  invoke77  bY: 

•  pi :  LOHAF  I’/nvrj.M?  A  OP  •  vs  [’,  E3  MS  rG  y  ENT  3  (  R 

q  T  j  r  v  ( m  c  5  P  0  p  ,  5 

Tv  IT  •'•■OP  ff  pr'  1 1; 

rjLCB  Lr  ^  a  T  "-  (  0^53  )  )  )  r 

SFGSTZF'  st* ck  "7f p  )  )& 

.  r  5  o  7  p  '  n  y  t  n  o  j  n  p  y  d  ) 

V.'A  r\:I  N3  58  :  SF'»MF‘\’T  IN  ?1MGFRVFr)  SP»CF 
SEGMENT:  (MO  NAME) 

;v  A  R  N  I  N  3  5C  :  SFGme*1T  IN  RESERVED  SPACE 
SEGMENT:  TUTTMOp  COP11 

SYMBOL  TAPLF  OF  M0DULF  LI MODULO 
’’FAD  F~  0M  FILr  :F1:K0RF.LNK 
■V  F  1 1  TFN  OH  FIL11-  t  FI:  FORE 
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OFFS  rT 

T  y  p  r 
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T  Y  P  F 
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PUP 
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PUP 

IPL  PPROC 
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PUP 
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0AC0n 
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P  J  B 
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o?e  ru 

PUR 

"xFTSP 
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UI'F 
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OAC0H 
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DlJB 
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PUB 
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'"TO  PH 

PMP 

OUTDNUM 

0P4CH 

0PF4H 

PUB 

I UPNUM 
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OFMC" 

orj? 

CUTNUM 

0  p  d  C  u 

0F8OH 

PU  p 

OU^LI  N  F. 

/  D4  ^  t’ 

y  IJr>  5  T4 

PUP 

nUTCHAP 

0P4CH 

■4 75  b  A  H 

PUP 

I  N  N  U  M 

“  4  0  H 

C’PYFH 

PTJD 

I  m  C  P  a  p 

np4  CP 

n  A  FEH 

PUB 

D I S  T I  - 

BUI  I0NMA.  P 

T?4  C  H 

0  A  C  A  u 

PUP 

PEFINPCLUSTP75 

^98BH 

?  U  3 

SYSTEMIC 

OF  40" 

PH  1  B  H 

pi.'P 

CRFAT^PPOC 

0P4CU 

07AFH 

Pl’E 

TICK  FT 

;*  '<4  p  y 

07E9H 

°IJ? 

nRFAT  FS  rC 

0P4CH 

051  ?F 

PU  3 

PREEMPT 

P?4C  H 

(*3nrp 

Dl!in 

a  o  V  A  m  C  v 

0  B4  C  P 

02P1H 

PUB 

•  W  a  I  T 

^  ?  t  ?  ^ 

??:•  ou 

P!jp 

p  vap 

0P4CH 

0 1  c  4  H 

PUB 

C  'J  t  A  T  F  r  V  C 

OF  1C:J 

.'*  p  P  P 

DiT-q 

C  A  T  FP 

0C4FU 

0000H 

PUP 

V  PSCHFPUL  F.  R 

.'C4rF 

0  OF  7  P 

t)f|T) 

INTVFC 

0  4  3  Q  u 

000  2  H 

PUB 

iNiTTAIP-nr 

y  ^  * 7 

P?F  i  n 

prT  o 

V 

06c  PH' 

pop 

U  ROT  «  s  T,  * 

F  5  3  0 :: 

p  5  f-  a  y 

■o ;  tp 

S  r0  IJFN  r  “’R  S 

rr  3  m  u 

0H5  -t I: 

PUB 

'■nr  I  mi 

P5.50H 

7  7  >oi! 

mj  v 

rV  C  T  0  tj 

F53:ip 

PO'.’OH 

UJ  :j 

locai  - 

CI.f'ST  M'P' 

"Fo/’-i 

*  a-  y  cj  t  r 

T>1|P 

t’V  v*'TS 

V  ^  U 

004  VP 

r; ' T  T 

"Mu  I  NT  «  LAG 

yp,  y  ">  :• 

4  "J 

pfT  TJ 

•'-VPS 

F53  ?H 

0543  K 

?U  B 

vw'?pc 

r  ^  7  la  q 

PU? 

crops T  LCrK 

177 


M  Y  T  y  A  n  F 


M  XT  5  A  n  r 


MXT  5  4  Cfc 


IS  IS  —I  I  M0S-«6  LI^K^F.  VI.!.  INVOKED  ?Y  : 

:?l  t  LI  NKCF  .OF  J  .  .OPT  .  :F1  :SC 

:F1 : IVITK.O^J . *F1 :O10* »L. O^T  TO  :  '•’!  :  KOc  F .  L'JK 
LINX  MflP  FOR  :  l’l  :KOcr  .LNK  '  Ll^'OPUL1' ) 

LOGICAL  S-G^F-'TS  INCLUDED: 

LENGTH  4 DL v  rS  S  S'S’G^FNT  CLSSS 


P0C6U  -  T  lMOOULF  OOT)F  CODE 

0 1 3 3 IR  -  LIM^ULF  DaT4  D  4  T  a 

006 2?i  -  ST  4  CF  STACK 

0000V  -  MTMfqY  memory 

PDF  FF  -  L?MOPHLF  CO147  COOF 

pprep  -  L2M0DULF  P4TA  OAT4 

JPUPF  - —  ?  ?  S  F  G 

V 9  °  V  -  SC^DULE15 

001  AH  -  VNITM0T)_C0TVr  COD1? 

0  0  0 1 II  -  INTTMCI>_rATA  TATA 

0  00011  -  GLOP  4 1, MO Df'LF  C  CODr 

-OP1? 

070  7  H  -  GLOPALMOPTTT.F^  FATA 

-AT4 


INPUT  MODULES  INGLUDFD: 
:F1:LF 7 FL1. OBJ 'Ll MODULE) 

:  FI  :  LEV  trL2  .  OB.T  ( LPMOPULF) 

:  FI  •  SCH FD .C^J 1 SO  UFD  ) 

: FI : INITK .OBJ  f IUITMOD) 

:F1 : GLOBAL .OB J ( GLOP  4 LMODULF ) 


f  •  V  v  ::  Y 

f-'  S  V  Of  r  ^  n/Q  0T!T1  f 

PEAD  ?r; 

0M  E  I  L  "  : 

F 1  :  ^  C  R  r . T  1 

"V 

t'RITTEM 

Tf  fILr 

;fl rprqp 

vODL LE 

i:i’  nn 

f  s  S  pa- 

soft  pv 

_  ^yopV  0  F  VS  FT 

-  00:t*; 

<-  V  QVVUT 

M  f  P 

STAPT 

S  Tr  P 

LEV  ”T  F 

A  LION 

M  A  ME 

CLASS 

GPllCH 

0  0 1 1 3  F 

0004  w 

4 

<  4  PS  OLUTF ) 

M3PUH 

043  A  9U 

001A  w 

w 

If'TTMOD  COPE 

COD  ~ 

0*570  PH 

0?  -"DPI1 

03n3n 

w 

LI  MODULE  CODE 

COD  y 

OB ADAH 

0  p  40  7U 

09r4w 

w 

L^MODULF/  CODE 

CODE 

GC499F 

r/p4QC3H 

0000F 

w 

OLORALMOPULE  c 

CODE 

-OP*’ 

*r  V3SH 

1 OTU 

000PP 

w 

LlMODULir  DAT* 

D  A  T  A 

if? C 4  ft  OH 

£*C4A  0F 

0000V 

it 

LFmODULE'’DAT4 

DATA 

7CA?  ?R 

c.'  p  /\  t  n  a 

0001  U 

y 

I  NIT MOB  BAT* 

D  a  t 

'"T4EP- 

!*C  1? 

0000*1 

?  ?  S  r  0 

r>  2  4  3  </.  p 

0C^46F 

O  0  97  v 

a 

SCHEDULER 

0Cb5?H 

0CcC  AtJ 

007bu 

V 

ST4CK 

STACK 

00 b doe 

0p^4pp 

007AF 

A 

ABSOLUTE ) 

0C6bCH 

('C6P9P 

007»  F 

4 

4 RS GLUTS ' 

l  dw.'?v\ 

1/P77U 

007OP 

4 

•  4  fsolute ) 

E5300H 

E5 4  78H 

07P7F 

W 

OLORALMODULE_D 

DAT  4 

-  i  T  4 

EbAPFH 

P5  S  QPV 

00  00  y 

V 

Mf MGR  Y 

M EMORY 

17f 
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•  El : LOO 86  ;  fi  jirnt-  F.T,*’*'  A  ft'P'-'FS  SFS  '  S  EG^F^'TS  ( & 
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SEGMENT:  f  NO  NA.VV) 
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SEGMENT :  I  MT TMOT_  COD11’ 

SYMBOL  TABLE  OF  M0DULF  LIMODUI.e 
v  FAD  Fp  OM  FILE  :  FI :  FOP? .  L'!»r 
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0P70H 
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0PP0F 
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PUF 
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PUP 
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PUP 
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06AFF 

PUP 
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TICKET 
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°HDS  .LftST$RUN  =  ?SE;  /*  I  ni  r-  T  ^  a  T  ^  S  T  A  R  T  ENTRY  TO 

sopetuiep  */ 

c.  *  Li.  v^srHFDULER;  '*  -  -  Mo  */ 


1 3|:  j;* #  jJ:  5;:  X<  #  -!• V  A'  '*•  -1'  it  3t ;J; oc  :«f 
/  sjt  y.c 5;:  5;  3;:  #  ;‘r  ^  x-  1-  A'  't  sf  >?:;!<  #  X: 


:;t  3^  y,r  3;? #  sX  #  x>'  3£  i!  ^  3.  ii;  iiJ  i,'  3;  #  i|-  3;:  3t  j;c 


T,  1  $MOTl.!T 


'■■■/ 

/ 


*"  / 
/ 

/ 


y  :!:  -  v  :|t  •;• :  • yt y*  yt  yt :'t  ;■  yt  y;  y  y: yt  y-  y;  yt  y-  y-  y-  y-  yt  y-  yt  yt  y:  y-  y;  yt  y:  ;|t  y<  y: :'  y:  y:  y: 
>  if  y:  y;  y:  y;  y:  yt  y;  y;  y:  y:y:  y.ye:,:y:  y; y:  yt  y:  y:  yi  yt  y<  yt  y<  yt  y;  y:  y<  y:  y:  y<  yt  yr  y<  y.  y:  yt  y;  y  y; 
j  y  y:  y<  y:  y:  y;  y  y< yt  y;  yt y<  yt  y<  yt  yt  yt  y  yt  yty  yt  y<  y-  y:  yt  yt  y-  yt  y-  y<  yt  yt  yt  yt  yt  yt  yt  yt  yt  y 

ytyftyty.  MCOSTFX  MCO^TFX  MCCkTEX 


y:;,tytytyt;,ty:ytytt'  / 
ytytyty-.ytyt  y;  ytytyt  / 
yt  yt  yt  yt  y«  yt  y--  yt  yt  yt  ^ 


is  is -i  i  ltwf,  vi.i,  tnv^ffd  e  y : 

:Fl:LIMKPt;  :  ^1  rLFV^Ll.OPJ  .  :F1  :I.TVFL2.0PJ  .  :F1  :SCy5,D.OPJ,& 
:  FI  :  I  \  I  TK  .  on  J  ,  :  FI :  TLOB  S.L  .  C  0  J  TO  :Fl:KORF.LNK 
I  INK  FOR  :F1 rKOR^.LNF'i l^nnULF) 


LOOirM  SEGMENTS  I  NT  LUTED : 

LENGTH  4  D  D  P  FS  S  SEGMENT  CLASS 


33P.5H  - -  I,lMODULE_COD v  CODr 

PMSF.  - -  LlMr,DULE  P'A T A  DAT* 

(? 04 C II  -  ST  “C*:  ’  STACK 

27-27V  -  MEMORY  v,p^ORY 

0PC4H  — -  LPMODUL^CODE  r('TlV. 

ftp??}]  -  LPMODUT.F  DAT*  DATA 

OOOOW  -  ??S  rG 

0OQ?F  -  SCHEDULER 

001AH  —  -  -  I N I T^C DECODE 

0001H  -  INTTMOD'on'T’4  D4Ta 

000011  -  OLO?  A  L^O  DU!E_C  ^ODP 

-ODE 

O^BTP  -  GT,0?  "LMODUT  E_n  D6T‘ 

-  4  T  .A 


INPUT  MOrULES  T  NO  LUTED  : 

:  El  :  LEV  ELI  .  OP  .T  ( LI  MODULE) 

:F1  :  LEV  EL2  .  OP  J  '  T  PMODUI.e  ) 

:E1 -SCHED.OPJ ' S^HET  ) 
t  El  :  I  KITE  .ORJ(  I4,TTM0D) 

:F1  :  G  LOP.AL  .CPU'  GT,op  «™QDI,T  v) 


/***#  MXTrACr  *****  MXTPACF  *****  MXTPACr 
?  "  DS .  7P*fn  j)  =  DRnS . V?  $  ST  *  PT  +  ?J 
PHDS  .  VPS$P?P$r?U  =  .3; 

/**■**  MX? ****  MXTP *.(•**  *****  mxt^ACF 

/#***  yy?r  »CF  ****  Myfupr  *****  MXTPACF 


*** -  v  X  T  P  A  C  F,  **-*/ 


****  MXTPACF  ****/ 
*-•-* *  KX T  F.  6 C  F  / 


-  F  N  D I  F 


/*  mTI‘irZF  THF  VP  M«?  F03  I nLF  and  IN1T  PHOC  */ 
/*  AND  MONTTOP  PPOCFSS  */ 

VPM ■ PHDS .V  P^ST APT ) .  V°£ I p  -  255? 

V  PM  (  PHDS  .VPf-STAFT)  .ST*TP  =  1J 

V  PM  (  PRDS  .  VP$>STaPT)  .V?$PPI^PTTY  =  0; 

V  PM ' ?  RDS .VP $ ST APT) . FV  r  $Th»FA  D  =  255? 

V  PM1 '  ? rD S  .  V  p ^  S T  *  P T )  .  FV  F  $  W  A  y  4  LIT1P  =  0; 

V?M ■’  pp.rs  . V^^STAPT  i .  SD =  60p: 

V  Py  '  PHDS  .  V  P*>ST  APT  )  .  SS  FO  =  I N I T$PT AC K'$S FC,  J 
7 P M (  PtTis  VP*S?APT+1 ) . vp* TD  =  2555 

VPM' ?  KPS . V  °  S  ST  AR  T+l ) . S  T  *  T  F  =  1; 

VPM  '  PHPS  .V  p*STAP  r  +  1  ) .  V?$PRIO»  ITY  =  255? 

7PM(  PRDS  .  7  ’*ST»PT  +  1  ) .  Fvr*TPt>I,«D  =  255; 

VPM'  PRDS  .V°$START  +  n.  FVC$*W<VALtJE  =  0!  ; 

V  PM ( P  VPS . VP-S?aPT+l ) . SP^PFD  =  60H? 

VPM { PRDS ,VP*START+1 ) . SS^RFG  =  I DLE$ST A CK$ S FG J 


v I F  NOT  MCC^TFX 


/****  MXT-ACF  ****  MXTP«CF  *****  mxTPAC11’ 
/****  MXT'ACF  ****  MXTPACF  *****  MXTPACF 
VPMFPHDS  .VP*ST»PT+2K  VP*ID  -  FFFF.' 

VPM' PHDS . V  p  ?  S  P  A  P  T  +2 ) . S  T  a  T  F  =  V; 

VPM' P-PS .VP^STAHT+2) .VPtPPTORITY  =  0? 
VPM ( Pr  D3 . VP$ST APT+2 ) . fvc^THPEAD  =  255! 
V  PM  f  PPPS  .VP$START+?  )  .FVP$AW^VALTTP  =  0; 
VPM'PPrS .Vp,;STAPT  +  2).S?*REG  *  *0H; 


->c  'i-  '!■ 


MXTPACF 

MXTPACF 


VPM'  PF’DS  .  V ? < s T s P T +2  )  .33*REG 


mQM ITOH  $  S  T “ CK  $5  EC  J 


*  *  *  / 


•v 


/***.*  f , x t '•) A ^ r  ****  MXTPSCP 

5,t  sj; * 

MXTPACF 

>!:  :;c 

MXTPACF 

5i;  -5s  '.r  •*'  f 

MXT>#CF  ****  MXTPACF 

#  sjc  ?,c 

MXTPACF 

:;c  >;< 

MXTPACF 

»,*  X 

$  END  I F 

NPiKPS  -  \!P SP PS  +  I? 

tIF  MCOPTFX 

/****  Mf'OR'pvx  ****  mC0rtfx 

*  *  #  *  * 

MCOPTFX 

*  X"  :|t 

MCCRTFX 

*  *  *  *  / 

/v-v-v.-  rcO^TFX  ****  MCOPTFX 

***** 

MCOPTFX 

MCOPTFX 

N"$V  PS  '  ?t>PP  .C?U$NUypKR  ) 

=  2? 

/****.  MCOPTFX  ****  Mfn pTrx 

MCOPTFX 

**** 

MCCRTFX 

/ 

t  FIS  F 
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/*  STARTING  POINT  OF  TP7  C'  P  E  R  A  T I ' !  Ci  SYSTEM 

/* - 

/*  ROUTIN'1:  INITIALIZES  THE  OS  an:-  IS  not  REPEATED. 

/ 1-  X-"  #  5?  X*  ❖  Xc  X=  Xs  si:  if  if  X«  #  if  >r  s|:  X=  X:  if  Jjc  X<  if  X« if  X:  #  #  if  >)t  sjt  aj:  #  if  if  ^  >)c  9^  j?  Xc  s;:  sj£ 

/  X:  *  =r  X:  X=  X=  X=  X=  *  V  X: if  X=  v  X:  X'  X-  Xf  X=  X'  X'  X-  #  X<  if  X-  X'  X'  X;  *  X:  X'-  X'  -f  X-  X'-  X-  Xs  X=  X  •  X'  :•'  X'  X-  X'  X-  X- 

/*  TO  INITIALIZE  THE  PROS  TABLF  FOR  THIS  CPU  */ 

DECL  ARE  CPUSPTR  POI  NTrR  ^ATA < PPRPS .CPU$NUMREP ) , 

zz  pyte; 


*/ 

*/ 


>;x 


disable; 


SIE  NOT  MCORTEX 


/****  MXTR  A  CE  ****  MXTRACE  *****  MXTR AC E  ****  MXTRAOE  ** 
/***-*  mXT’ACE  ****  ►/  y  t  b  4  r  F  *****  MXTRACE  ****  MX TRACE  ** 
CALL  CUTSLI\E(0MSO12) J 


/ 

/ 


S END  IE 


/* 


I  NIT  I ALIZE  P  P 
OUTPUT  '  pORTiCE  )  - 
OUTPUT  l  PC-  ?*  CO)  - 
OUTPUT ( PCRTSC2  )  = 
OUTPUT; poRTtCS)  * 
OUTPUT ( PORTS  C?  I  - 


I  AND  PIC  */ 

f’C?n;/*  PPI  -  MICROPOLIS  -  M  COR  TEX  */ 
13H;  /*  PIP  -  ICW1  -  EDGF  TRIGGERED  *  ' 

40H;/*  PIC-I CW2-VECT0R  TABLE  ADDRESS  */ 
0EH  J /*  PIC-T0V4 -MCS96  MOPE.  AUTO  EC  I  */ 
PAFH:  /*?rr-M'SfC  *LLOi»ING  I  ! T .  4  &  6  */ 


/*  ESTABLISH  UNIQUE  S E OU E N T I  * L  NUMBER  vq»  T”IS  CDU  */ 
/*  SET  OLOR ALSLOCK  */ 

DO  ’* H I L E  LOr<$SE'r(00ri1npf.TJtLOCE,  119)  ;  END » 

PROS ,CDU$NUM?FR  =  CPU^TNITJ 
CPUS  I  N  IT  --  C  PU$  I N  IT  +  1? 

x*  iELE'SE  OLOB8L  LOOK  *' 

S  LOP  A  LS  LOO  V  rr  F  : 


SET  UP  T  N I T 1 8  T  START  8''P  AND  FOR  ?^OC  TABLE  */ 
PATS . VPiST 8PT  =  0 ; 

PO  ZZ  =  1  TO  PROS .0?U$MUM?FR ; 

PROS.  VPASTA  T  -  PUT\S  .  vP$  ST 8  UT  +  MAXSVPSSCPU? 

end; 


SIE  MCORTc‘X 


/****  MCORTEX  ****  MCORTEX  *****  MCORTEX 
/:;«x  *x:  MOOT  TEX  ****  yCORTEX  >?=  ^ ^ MFORTEX 
PR PS . VPS  END  =  °RDS . VPS  ST A  RT  +  1? 

PPD3  .  VPS  SPE’  SCPU  =  2? 

M C 0 H TAX  ****  MCORTrv  *****  M F 0 R T E X 


****  MCORTEX  ****/ 
****  MCORTEX  ****  / 

****  MCORTEX  ****/ 
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/*  IP  THIS  AT'T'P  »'|H  nrp  XO  MKX  C  FC-.  S  J3  */ 

C  ®  L  L  OUT ACH  AF  (Cr') ! 

04  LT  OUT$C^»R  •  I.?)  ; 

4 TPC .OFFSET  =  A  DPR . OFFS  FT  +  1? 

?T’>  =  °TP3 1 

CALL  OUT  SDN  U'* ' A  PUR .BASF) ; 

CALL  OUTSCF AR  '':')! 

OJLT  OUTAPNUMt Appn. OFFSET ) ! 

0«TT  oijtachar  ( '-' ) : 

OALL  OUTA>NUM( CONTENTS ) 5 
END!  /*  IF  SKIP  fqs  NFXT  SUB  */ 

IF  (  I NC  WR  =  '  ' )  TUFN  DO! 

CALL  OUTAGE AR(  '  '  )  ! 

OALL  TNSNUMOCONTFNTS  )  ! 

TO  WHILE  (lNCHROCP)A'ir(lNCHrt<N't '); 

0  *  LT,  IM$  OH4F  4  0 1 N C F  H  )  ! 
end: 

IF  .  I  NCRR  =  CR)  THEN  L00P2  =  FALSE! 

IF  (INCH*  =  '  .  '  )  TiT*M  00! 

CALL  OUT AC^AR ( 

APTR. OFFSET  =  APPR. OFFSET  +  1J 
PTF  =  PT  P3  ! 

CALL  OUT  SC  U  A  R ( CR  )  ! 

CALL  OUTACHAR ( LF) * 

CALL  OUTADNUv(  A  DPR  .BASE)! 

CALL  OUTACHAR  ( 

CALL  OUT  ADN'JM ( A  DPR . OFFSET ) ! 
cst.L  OUT*CW4r(  ! 

CALL  OUTANUM^CONTENTS) ! 

EM  D  *  /*  IF  CO  TO  NEXT  A  DDR  */ 

END!  /*  IF  CH A MCE  CONTENTS  */ 

INCUR  =  'X'!  /*  REINITIALIZE  CMD  */ 

EMP!  /*  LOOP,  CONTINUOUS  SUP  CMD  */ 

FND!  /*  SUBSTITUTE  COMM  a  ND  SECTION  *  ' 

IF  (INrw.-.=  'F')  OF  (INCHM=65H)  THEN  DO! 

/*  fi  mx  OUT  W^ICH  A' ps  IS  RUNNING  'ME'  */ 

INDFX  =  ^ET$VP! 

/*  NOV  BTOCK  MYSELF  */ 

D  I  S  A  p  L1" ! 

PTJUS  .  L'STSr.UN  =  IMPFX! 

VPM  > I NDVX )  .  ST  a  TF  =  WAITING! 

CALL  TPSCREDULFR  i  /•'-  MO  RETURN  */ 

END!  /*  IF  #/ 

GO  TO  LOOP! 

END!  /■'  MONITO0  ®R0O ESS  */ 

/####  KXTr  4TF  ***#  MXTPACF  *****  MXTPACF.  ****  MXTRACF  ****/ 
/****  MXTRACF  ****  MXTR  A  C  F  *****  MXTRACE  ****  MXTRACF  ****  / 

A  FND  I  F 


/#f)3  475,'  #$  £v  V  V -45*  V >!•  V 5): $  *  / 

s’,;  V,; ^ V-- V; V-  y.  ^-. ^ -.'t  -Jf. ■)£  V,-, ^ X- f 


r  6LT  i m  ( o 4  p^r . ntTS ft  ) ; 

PTR?  -  p  *  n t) i) ; 

PTR  =  ?t=3: 

('O'T^NTS  SHOULD  Ni  0  V.  SrT  *  / 

PO  WHILE  '  IMC^ROC'  )  /‘‘'IP  (  I  N  rH  ><  2  >23 1! )  ; 

PALP  IN  $  TP  iff  OI'THF); 

END;  /*  DO  WUTLE  */ 

IF  I  N  C  u  :  =  Ci  THEN  T'o; 

CALL  OUTtCFAK 
C  A I  L  OUT$NUM< CONTENTS 
CALL  OUTiCHA  R ( C R ) ? 

CALL  0UT$  CHAP (LF  ) ; 

END!  /*  IF  NORMAL  1  A PDR  DISPLAY  */ 

IF  INCPR  -  23H  THEN  POI 
COUNT  =  ?\ 

CALL  OUTSCHAR  (  'ft'  ); 

CALL  IN$NUM(OOUANTITY ) ; 

DO  WHILE  QUANTITY  >  <?\ 

CALL  0UT$Ca  AR  f  CR ) * 

CALL  OUT$CHARa7); 

CALL  OUT*DNITM(  ADPP.PASE); 

CA  LI,  OUT$CHAR  ('?'); 

CALL  OUT$PNUM ( A PDP .OFFSET ) » 

LI NFCOMPLFTF  =  EALSF? 

DO  WHILE  LINECOMPLFTF  =  FALSE; 

CALL  OUT$CHAR  {  '  'U 
CALL  OUT$NUM f CONTFNTS )  ; 

APPR  .  OFFSET  -  A  P^R  . OFFSET  1? 

PTR  =  PTR3 ; 

OITANTITY  =  QUANTITY  -  15 

IF  ((  APPR. OFFSET  ANP  000EH)=0)  OR 

(QUANTITY  =  ?)  THEM  L I NECOMPLET E= P n uE 
END;  /*  PO  WHILF  LINE  NOT  COMPLETE  V 
FNP5  /*  PO  WHILF  QUANTITY  */ 

END?  /*  IF  MULTI  »DPR  DISPLAY  */ 

END;  /#  display  command  section  */ 

IF  '  INCHR=  'S  ' )  OE  (  lNCWi?=73H  )  THEN  DO; 

/if  SUPSTTTUTF  COMMAND  SECTION  */ 

C  ALL  IN$rNU^MADDR  .PASEl  5 
CALL  out<Cu»R ( ') ; 

CALL  INADNUM(^A0Pd .  0  VFS  FT  ) : 

CALL  OUTSr«»R 

PT n 2  -  'SAPPR; 

PTR  =  PTr3; 

/*  CURRENT  CONTENTS  SHOULD  NOW  BE  AVAILAET-E  */ 
CALL  CUTSNUM( CONTENTS  )  I 
L00p2  =  Tp  f; 

DO  WHILE  L00P2  =  TPUF; 

PO  WHILE  ( I NC  HR , '  )  A  NP ( I N CHR O  '  ') 

AND(  INCHR<'SCR  ) 

r  ALL  INSOFAR  'f»INCHR  )  J 

fnd; 

I E  (  I  NC°R  =  CP)  THFN  L00P2  =  FALSE; 

IF  (  INCH?  -  ' , ' )  THEN  DO? 


°RT'S  .COUNTER  =  PRDS. COUNTER  x  1? 
co  to  loop; 

FND!  /*  TDLESPPCC  */ 


/3*0<^p  2  *Sr  ##  #  5|-5|;  *!■£ sjs sis 5|:  ;I: # Iji  #i(:  si:  5,*:  #  J|-.  :f:  X'  % 

/*  MON  I  TO?  A  CCESS 
/* - 


»<j  «U  jj#  j1#  o#  ■>/  %*.  j.  y.  y. 

BREW ER 


8-1H-B4 


/ 

*/ 

*/ 


/*  THV  MONITOR  PROCESS  IS  I M T T I A  L I ZET  M  THE  OS  LIKE  */ 
/*  I N I T  *  NO  I  .  TT  H  *  S  TKF  PESFR VED  ID  OF  OELH  a  N  D  A  */ 
/*  PRIORITY  OE  cth.  IT  IS  ALWAYS  BLOCKED  OR  WAITING  UNTIL"'/ 

/*  IT  IS  PFFFMTED  BY  THE  USER.  */ 
/# _ _ _ _  _ _ *  / 


/*  C4LLS  N»DE 

TO:  OUTS  LI VE 

/* 

OUTSDNIJM 

/  * 

IN$N'JM 

/  #  sj:  >;t  5|S  v  sis  #  X-  s;s  >|t  ?;• 

.  X,:  s|s  5|:  s*  )|t  s;,  s;s  i,:  3;:  sjt 

OUTSCHA.R 

INSDNUM 


'|'  }!!  V  'r  'r  V  V  V  ■ 


5);  j|:  5*,c 


>!••/ 

V/ 

'••7 

**/ 


$  I F  NOT  "CORTEX 


/****  MXTRACE  ****  MXTRACF.  *****  MXTRACF  ****  MXTRACS 
/****  MXTC«CF  ****  MXTF'ACF  *****  MXT FACE  ****  MXTRACE 
MONT  TOR  SPROC :  PROCFDURF  REENTRANT  PUBLIC; 


*'r  V  -•  '•*  / 
####  / 


DECL  AHF 

PTR  POINTER, 

PTR2  POINTER, 

PTR3  BASED  PTP2  POINTER. 

A  DDR  STRUCTURE  f  OFFSET  WORD,  BASE  WORD), 
CONTENTS  BASED  PTR  BYTE ; 

DECL  4 1’7 

1 LINECOMPL  rTF,  L0DD2)  BYTE, 

( OU  s  N  TI T Y  ,  COUNT)  BYTE, 

I  INCUR,  INDR'X,  VALIDSCMP)  pytp; 


LOOP:  VAI.IP^CMD  =  o; 


CALL  OUT  SC  H f 1 f  C  F  7 
CALL  OUT  SC  BAR  'LF)J 
CALL  0UT4CU9t7  '); 

DO  WFILR  NOT  VALIDSCBP; 

CALL  inscfav^incrr  ) ; 

IE  (IVCHP  -  'D')  OP  ( I NCHR  =  'S  '  )  OF  (INC??.  =  'E')  THEN 
V  A.  L I  D S  C M D  =  OR’EH; 

IE  (IMCUR-P4B)  OR  f I N^HR  -F5H  )  OR  ' I NCHR  -?3H  )  THEN 
V'LIDSCMD  =  OFEF; 

IF  '/  A  I  I  PSCMD  =  OERH  TWEN  CALL  OUTSCH  A  7  I  NCR  ;•  )  ; 

end;  /*  ro  while  */ 

I E  (  I V  C  H  =  'n')  OF  (P'CHF  -  04F)  THEN  DO ; 

/*  DISPLAY  COM"AND  SECTION  */ 

C  4 LL  iNST-NU^fOAPDR  .  ^AS1?) ; 

C  4  LL  OUTSC  U4 FI':'); 


/  #  ^  2  Q  <=  Sr  -l: s!<  3|s  «  *  3js  *  *  #  :|:  :|s  >j«  jJ:  s|s  s|:  3js  >;.'  ^  #  3J: :;:  >|t  ;|t  5;:  *  :|:  :|:  s|: 

j  .*r  .‘,  .«,  .«r  *»r  I  •>.  Jr  .1,  ,t„  .1.  .-.  ,'  .1.  ,l<  .1.  .*.  ,»r  .Jr  .<r  «».  j«»  .« -  J.  s',  jJj  j'-  %•-  J.  *'«  jJ  • 

/*  SYSTEM  PROCESSES 
/* 


VV3i: 


/ 

/ 


*/ 


/ 

/ 

/ 

/ 

/ 
/# 
>* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


S*  :|C #  5;:  s£  :.i :!' :!?  5*y  sfc  # 

IDLE  PPOfFSS 


:;c  *  7 


I*  Jr  .’r  . 


B  h  E  .v  E  .\  ri  —  1R— 94 


■■■/ 
*  / 
■:;7 
=•/ 
57 
*/ 
'-7' 
,;7 
-7 
V 
*  / 
*  / 
/ 
!7 
*/ 
*/ 
*/ 


THIS  PROCESS  IS  SCFFTULEr  IF  ALL  OTHEP  PROCESSES  I  M 
THE  V PM  ft  RF  BLOCKED.  THE  ST ftpTI NO  ADDLFSS  IS  PROVIDED 
TO  Tuir  IDLF$ST«CK‘  AMD  PI.APED  IN  PRDS  .  I LLE$DfcR .  ft 
CALL  TC  tpf  SCHEDULER  IS  MADE  EVERY  4  MS  In  THE 
EVENT  TUA  T  AM  ONBOARD  PFOC^SS  WAS  FEADIED  BY  AM 
0FF30A RT  OPERATION  (ADVANCE).  EVERY  250  IT  ERA  F  IONS 
TKF  COUNT  T S  IMCPFMPMTED  CY  OME.  THUS,  THE  COUNT  IS 
INCREMENTED  ONCE  PER  SECOND.  THE  COUNT  IS  MA I  NT  * i N ED 
IN  THF  PR  PS  TABLE  AMD  TS  A  ROUGH  MEASURE  (  E  SYBTt7 
PEP  v0‘-  M  ft  N  CP:  PY  GIVING  »N  INDICATION  OF  THE  AMOU  JT  OF 
TIME  SP^NT  IM  THF  IDL^  PROCESS. 


/* - 

/*  CALLS  MADE  TO?  PLM95  PROCEDURE  'TIME' 

/*  0UT$LIOE 

!  3(s s|t ;|:  :|t  :|t :|s 3|s :|:  $ s|:  ^  3":  3;:  3|s 3;-.  :|:  Jjt  t‘  3;;  sj:  :|s  3{s  3js  ;|s  If.  s|s  sis  s|s  :|s  sjt  3|t  3|:  ;|s  3|:  #  ;ls  :|s  3'^  3|s s|:  s|'.  3|s  s|-  :|s  s|:  i;  sjs  :|t  3|s 


IDLF$PPOC  :  PR 00 FPU DF  R F r Ki T P  ft N T  PUBLIC* 
DECLARE  I  BYTE! 


$IF  MOT  MCO°TFX 


/3|s3;ssit3js  jv|XTr*CF.  ’'■****  m/TRACF  ****  *  MXT  r  ACE  ****  M  a  TRACE  v-#**  / 
/****  MXTR  A  CF  ****  MXTRACF  *****  MXTRA.CE  ****  MXTRACF  v***/ 
CALL  0UT$LTME(0mSC1O')  ; 

SEND  IE 


LOOP:  DO  I  -  1  TC  250: 
ft-  4  yp,  ^ v jj  3  y  */ 

CALL  TIME'  V0  ); 

DO  WHILE  T,  0  C  K  $  ?  F  T  ">OLC?AL$  LOCr  ,  1197 
ASSERT  LOCK  */ 

rnd; 

CALL  RPYTFT  SVPJ 

ciLL  vpscffdulef; 
end;  /*  do  i  */ 

$  I F  MOT  MCCRTRX 

/«3^3;<3^  ^XTrftCF  '•* t' tf  r^XTRACF  *r *  MXTPACF  MXTF  ACV  *■###/ 

/«:;:3;:3^  M  X  T  R  A  C p  MXTR  A  C  R  **?’■.'.  MXTRACF  **:*#*  MXTRACF 

C  AT. I.  OUT  AL  IN  F(  0MSG1  1  '  : 


SEND  I  F 


1 57 


$  F  N  D  T  F 


P ^TU  F.  M  3ipC,TBL*INT)FX; 
end;  /*  if  */ 

ELSE  ?r; 


$IF  MOT  MCO-'TEX 


f  Xs  V  V 


MXTR.ACF  ****  MXTR 6  OF  *****  MXTRACE 
MXTRACE  ****  MXTRACE  *****  MXTRACE 
CUT  OUT$LIV*(0MSS24); 


****  MXTRACE  ****/ 
^  #  M  X  T  R  A  C  F  *  *  *  *  / 


$END  I  F 


r  *TUP  M  ''OTATOUND; 

emd;  /*  us f  */ 

"NDS  /*  LOCATEiSFO  PROCEDURE  */ 


/*  R  rTR  N  ^ 0 T  '"•QPP  */ 


i  I  v  NiCT  '•"'C  -'T  EX 

MXT  SCE  **  X  T  R  A  C  P  ##**>!'  MXTP4CF  ****  MXTl.ACF 

/***-■■  m  X  T  ^  A  C  ^  ****  m  y  R  *  C  v  *****  mxtRAOE  * ** *  : -1  /.TRAC" 
C'LT  00T^LINEf«!^S32A); 

$  FND  I  F 

p  FTUH  M  NCTSFOUNT; 

F  N  D ;  ELSE  */ 

pnd;  z*  lccate$fvc  procedure  *z 


/  *  0  5 7  0  *  *  *  ********  *  *  *  *  *  *  *  *  * *  *  *  3'-  #  #  * *  #  *  *  sj:  jjc  >;< *  jjc^c  #  #  *  #  -;t  *  *  *  *  * 

Z*  LOC4TE$SFQ  PROCEDURE  BREWF-  y-l-f 


FUNCTION  C  4 1,L  TO  PFTURN  THE  INDFX  OF  TITF  SEQUENCE! 
/*  SPECIFIED  IN  TRP  SFO-TAPLF . 


Z*  CALLS  0 ADF  TO:  OUT$LINF  *Z 

/  *  V  *  *  *  *  *  *  *  *  *  *  *  *  *  *  #  *  *  *  *  J(S  *  *  if  #  jjc  *  *  *  *  * *  *  *  *  9jc  *  *  3fi  *  -A  *  *  *  *  *  Si-  *  s;« *-.  *  rt  -.j:  3;  :,t  j 

LOCATFSSFO:  PROCEDURE ( S PQ$NAMF )  BYTE  REENTRANT  PUBLIC; 

DECLARE  SFOiNAMF  BYTE? 

D F C L  *. p F  <  M 4 TCP ,  SF,OTBL<  I  NDFX  )  BYTE? 

A  I  F  NOT  MCOSTEX 

/****  MXTRACF  ****  MXTR4CF  *****  MXTRACF  ****  M.XTR  AC  E  ****  / 
Z****  MXTRACF  ****  MXTP  A  C  p  *****  MXTRACF  ****  MXTRACF  **V*Z 

CALL  0UT$LINE(^MSCt22)  J 

$  FND  IF 


match  -  false; 

5 FOT RLE  I NDFX  -  Vi 

DO  V  H I  L r  ( WATCH  =  FALSE)  AND  1 S  FQ?BL$ I NDFX  <  SEQUENCE- S  ) 
IP  SEOiNAMF  =  S  F,0$  T  A  BLr  ^  S  EOT  BL  $  I  NI  FX  )  .  S  SO  ^N  AM  f;  THEN 
MATCH  =  TRUE,; 

ELS  F 

SFOTBLATNDFX  =  SFOTBL^INDEX  +  l; 
end;  Z*  WHILE  */ 

IF  f  MATCH  =  TRIJP )  THTN  DO  J 
SIF  NOT  MC  0^  T  TX 

/****  afv  *  *  *  *  MXT  PACE  ’S'***'*  M  XT  R  4  C  F  ****  MXTRACF  ****  / 

Z***'*  MXTRACF  ****  MTTRACP  *****  MXTRACF  *#**  MXTRaCF  ****  / 
CALL  OU  T  R  L 1 41  p  ^  P  M  S  0  2!X  )  ; 


"ETURN  S  FL^CTFD  i  D^P  i 


PM!);  /*  OFTWORV  prOr?DUF F  */ 


/■%  fjj  5  ^ir7  :|t  5^:',:  r;t  :V  ;|{  ijssjs 

/*  L0CATF<F7C  eroCERUPF 

/* - 

/*  FUNCTION  C  a  LL  .  RETURNS  THF  I  NDEx 
/*  OF  THE  EVENT  NAME  PASSED  TO  IT. 


RRFWFI 


IN  EV  F.  4T  COCJ  MT  TABLE 


/* - - - - - 

/*  CALLS  I*  A  DF  T0 :  OUT$CHa';  OUTLINE 

/ft##  #  *:  1;;  *  *  $  a;:***  #  *  #*  *  *❖*  «  # «!(: 


4;  if  ajs  -if.  i,t  Jj!  3}:  >jr  it  *£  >;t  5^  *  :|r 


LOC  A TFS FVC  :  PROCEDUR E ( EVEN T$ NAME  )  BYTE  REENTRANT  PUBLIC.* 


■■■/ 

*/ 

SV 

*/ 

*/ 
*Je  t 

V  / 
"/ 


DECLARE  EVENTSNAME  BYTE; 

DECLARE  ( ^  A  TCH  .EVCTBI.^I  NDEX  )  BYTE; 


$  I E  NOT  MCOcTVX 


/****  ^XTRAC"  ****  M  X  T  R  A  0  E  *****  MXTRACE  ****  MXTRACE  ****/ 
/****  MXTRACE  ****  MXTRACE  *****  MXTRACE.  ****  MXTRACE  ****/ 
CALL  0UT$LINF((?MSG2F); 


AENDIF 


MATCH  =  ealsf; 

EVCTBL^INDEX  -  0? 

/*  SEARCH  DOWN  THE  EVFNTCOUNT  TABLE  TO  LOCATE  THE  */ 

/*  D  VS I R  FD  EVFNTCOUNT  *Y  MATCHING  THE  NAMES  */ 

DO  WHILE  (  MATCn  =  FALSE)  AMD  ( EV CT  BL$ INDEX  '  EVENTS)! 

/*  DO  WHILE  H a  VE  «OT  FOUND  THE  FVF.NTC  OUNT  r  N  D  HAVE  NCI  */ 
/*  REACHED  END  OF  THF  T s BL e  */ 

IF  EVENT^NAME  -  EV  C  $T^L '  pV  CTRL'?  I MT  E  X  )  .  F  VC  $N  A  ME  THEN 
MATCH  =  TEUF! 

ELSF 

FVCTBL$INDEX  =  FVPTBL^lNrEX+i: 
end;  /*  WHILE  #/ 

/*  IF  HAVE  -POUND  THF  EVFNTCOUNT  */ 

IF  (MATCH  =  TRUE)  THEN  D01 

/*  rvTupN  ITS  INDFX  IN  THE  F7C$?EL  */ 


$1?  NOT  MOORTEX 

MXTCACE  ** **  MXTRACE  ***** 
/**#*  MXTT ACE  ****  MXT?aCF  ***** 
CALL  OUTLINE  (0MS02.T); 


MXTRACE  ****  MX  TRACK  ****/ 
MXTRACE  ****  MXTRACE  ****/ 


iFND  IF 


RETURN  EVCTBL^INDFX; 

end; 

ELSF  do; 


If,  .4 


vTPvn.y  M*p  QTT  r'n^ULT  T, 

•; r (1 D  KRO^  FIT, r 

ii  R  ITTFN  Tr  v  I  L  v  tEltFO^ir 

MODL  LF  S  T  *  c  T  “OV'ESS  ?a  ^  4  OF  r.v.j  -  fl-np^r  OFFSET  -  C"»30H 
S  PS  w\'  t  K1 1  d 


3  T  a 

STO° 

L  v  V  G  T  H 

«LIG 

V  4'  4  V 

CL»SS 

-001 10H 

o  1 1 3  F 

0004u 

A 

' 4  PSOLUTF  1 

043F0H 

043A9H 

001  4  p 

W 

IUIT30B  COPE 

cor7 

0AC00H 

0P  4f  5tT 

03COH 

W 

LI  module  CO  FF 

CO^E 

0B4CPH 

0  C  2  C  4  H 

0FFFF 

'll 

L2MQFULE  C^DF 

CODE 

CC206H 

r>C2rp>V 

P(?(?C<1  J 

’.V 

GLOB  I'L^OFULE  C 
-O^F 

C  OF  F 

0C2C6H 

0C3F  °P 

01 33  H 

w 

Ll^OpULE  r  AT  A 

1  AT  * 

0C2^'ii 

^n4Dr^ 

00F5F 

>/ 

LFPODULE  D T 4 

D  A  1  ’■ 

00  4-  0H 

0 

0001  tl 

.f 

IViT^OD  FATA 

D«T- 

0C4F0F 

p  4  F  0  L 

0000F 

G 

?  ?  S  F  G 

f’(MV0F 

'’C5«6F 

00 Q7  F 

\T 

SCHEDULE7 

00 510 H 

?C,F?.  V- 

0075F 

w 

STACK 

stack 

0C«30H 

PCPA9H 

007  A  F 

A 

ABSOLUTE  ) 

'  ’  C  6  3  0  F 

0  072  PH 

0074  F 

4 

<  ABSOLUTE  ) 

OC730F 

3C7A9H 

0074  F 

4 

'  ABSOLUTE) 

10  00,0  F 

10077P 

007°^ 

A 

'  ABSOLUTE ) 

F5300F 

E5 S36H 

^787H 

V/ 

GLOB  ALF'OFULE  D 

-ITU 

DATA 

E5 A3  FH 

v  5  o  o  v 

00  00  F 

Yr 

memo  r  y 

Mrvf  y 

17P 


jpPTT*;njy  j 


f.  INTr?^UPT  HANDLER  SOURCE  CODE 
The  ASMEP  rode  in  file  SCHED.-'SR'  is  part  of  the  LEVEL 
I  module.  Details  pertaining  to  assembler  invocation  may  be 
found  in  [Ref.  201  and  [Fef.  21 1 .  This  module  is  linked  into 
file  KO”E.LNK  and  its  memory  map  is  included  in  th°  for 


;  *000?** 


j1*  j'»  *•>  j1;  j'j  »*j  *•#  %'j  *'*  •><  j1  •  »<*  »'<  y«  »*•  «•.  »'*  «>«  j'j  y»  «'*  »»j  ,l>  v** 


J*  SCHEDULE !;  'SM  F I L F 

- - 

J  *  THE  FOLLOWING  A  R  r  THE  EXTERNA  L  PLMS6 
J*  BY  THIS  MODULE. 


p  n  S  W  E R  8-18-84  * 

- - V 

PROCEDURES  called  - 

* 


EXTRM  SAV^CONTEXT : FAR 
EXTRN  GETS?:  FAR 
EXT? N  GETWOPK  :F4F. 
EXTRN  RD YTHI S VP : FAR 
EXTRN  PRDS^YTE 
EXTRN  E  DW I N  TFL  AG : B  Y TF 
EXTRN  GLOB ALLOCK  :EYTE 


S  ChEDULE?  SFGMENT 
PUBLIC  VPS  CHEDULER 
PUBLIC  INTVPC 

V PS CHEDULER  PROC  FAR 


ASSUME  CS : SCFEDULEP 
ASSUME  DS : NOTHING 
ASSUME  SS:N0THING 
ASSUME  ES  .-NOTHING 

J  ENTRY  POINT  FOR  A  CALL  TO  SCHEDULER 
CLI 

PUSH  DS 
MOV  CX.OF 


;SWA?  VIRTUAL  PROCESSORS.  THIS  IS  DONE  BY  SAVING  THE 
ISTACK  BASE  POINTER  AND  THE  RETURN  TYPE  FLAG  ON  THE 
;ST«CK,  AND  BY  S»VING  THE  STAC*  SEGMENT  AND  ST4CK 
; POINTER  IN  TUE  VIRTUAL  PROCESSOR  MAP. 


INTJOIN :  PUSH  BP 
PUSH  C X 
MOV  AX.SP 
PUSH  AX 
PUSH  SS 

CALL  SAVE^ONTEXT 
CALL  GET WO PE 
PUSH  AX 
CALL  GETS? 

DOP  3S 
MOV  SP.AX 


:  S  ^  ,TF  ”CUpRENT"  STACK  BASE 
JSAVE  'current'  iret_ind  flag 

JSET  UP  3  AVF$CONTF,XT  PA-AMETEnS 
;SET  UP  SAVE$ CONTEXT  PARAMETERS 

;OET  NEW  STACK  SEGMENT 

;tsmpcry  save  of  stack  segment 
;gft  new  stack  pointer 
;inst*ll  new  stack  segment 
;  install  new  stack  pointer 


;swap  VIRTUAL  processor  context  complete  at  this  point 
;now  opf-»tivg  in  newly  SELECTED  PROCESS  stack 


180 


POP  cx 
POP  PP 


;r,ET  I  HFT_  1 ND  FLAG 
; INSTALL  MEW  STACK  BASE 


;  CHECK  PC 3  r  ETURN  TYPE,  MORTAL  OR  INTERRUPT 

CM?  CX.77F 
JZ  I  NT RET 


MOHM_?ET:  POP  PS 

5  UNLOCK  GLOE AL$LOCK 
MOV  AX , S EG  GLOBALLOCE 
MOV  ES ,  'X 
MOV  ES  :GLOBA.LLOCK  ,  0 
STI 
RET 

VPSCHEDU PER  rNDP 


X;  J|(  sjc  v  #  *  *  3;-.  £  j|: 

*  INTERRUPT  FAMPLFR 

* 


#  #  #  #  3jc  ffi  #  #  ?; 


?,C  jj;  JjS  v  V  V  n*  *1'  ?}£  *»'  V 


I  NTER RUPT_TJ  A NDLER  PROC  NEAR 

ASSUME  CS : SCHEDULER 
ASSUME  DS : NOTHING 
ASSUME  SS : NOTKI NG 
ASSUME  ES : NOTHING 


1  MTV  EC : 

CLI 

PUSH 

ES  ;  SAVE  NEE^E" 

REGS  TO  TEST  INTERRUPT  E 

PUSH 

BX 

PUSH 

»x 

PUSH 

cx 

CALI 

HARDWARE  I NT  FLAG 

MOV 

Al  ,  0 

XCHG 

AL,FS:HDWINTEL#G[BX] 

CMP 

AL.77H  ; 

IS  I  NT  FLAG  ON  ? 

JZ 

PUSH  REST  RVGS 

IV  'YES'  SAVE  REST  REGs 

POP 

cx  ; 

IF  'MOT'  RESUME  PREVIOUS 

POP 

ax  : 

EXEC  Um 1 0  N  POINT 

POP 

BX 

POP 

VC 

STI 

I  RET 

PUSH_;<EST_PEG  S  :  PUSH  DX 
PUSH  PS 
PUSH  SI 


FLAG  WAS  ON  SC  NEED 
RE-S  ECHEDI.LF 


PUS" 

PI 

MOV 

AX.SEG  GLOBA LLOCK 

MOV 

ES  .  <  X 

Cl 

:  MOV 

AT,  ,110 

;  LOCK 

GLOBAL  LOCK 

LOCK 

XCHG  FS :GLORALLOCK 

.AL 

TEST 

AL,  AL 

JNZ 

OK 

CALL 

RDYTHISVP 

MOV 

CX.77H  ; 

JUMP  TO 

SCHEDULER 

JMP 

I  NT JO  I  N 

IN 

THET  : 

POP  D I 

POP 

SI 

;  RETURN  FOR 

POP 

PS 

J  PROCESS  WHICH 

POP 

PX 

;  pap 

PREVIOUSLY 

POP 

0  X 

;  been 

INTERRUPTED 

;  UNLOCK  GLOBAL? 

LOCK 

MOV 

AX.SEG  GLOBALLOCK 

MOV 

ES,  AX 

MOV 

ES : GLOP  A  LLOCK  ,  0 

POP 

AX 

POP 

BX 

POP 

ES 

STI 

I  PET 

I NTERRUPT  _P8  NDLER  END? 

•* 

ajc  if  if  if if  if  if  if  if :f a»r # 

ifi:if if 

&  if  if  #  >s  # s|c  ;Jc  if  if  >?■ £  if j|:  if if  j(t  if  j;: 

;  * 

9^ »J;  »}e sje sj*  >Js#  if #  if  s;t  s{[  s!' :|t  ^ #  5[;  # 

#j)(s;c5;;»)e)jc5>:5;o£#;fc#s)c#  jJ;  jji  3ji  s|c  if  s;:  s)t  #  #  i|:  sj: 

•  5*? 

H 

AKDWARE  INTERRUPT  FLAG 

»r~ 

;* 

* 

HAKDWARE_I NT_FL AO  PROC 

NEAR 

ASSUME  CS : SCHEDULER 

ASSU 

ME  D ' : NOTHING 

ASSU 

ME  SS : NOTFI NG 

ASSUME  ES : NOTHING 

HDW  FLA 

G:  MOV  8  X  ,SEG  PR^S 

vOV 

FS,  AX 

MOV 

BX  ,0H 

MOV 

CL , ES :PRPS  fBXl 

joe"  cpu 

n 

MQV 

CB,0 

;  RETURN 

IN  BX 

MOV 

BX  ,CX 

MOV 

AX.SEG  HP'V I MTFLA G 

5SET  UP 

HDW  $  I NT$FL AG 

MOV 

ES  ,  A  X 

• 

t 

SEGMENT 

RET 

?  RET UR 

N  IN  ES  ivEG 

HA 

t>  0  W  A  P 

F  I  NT  FL»G  END? 

SC 

HEDUL 

ER  ENDS 

J  3*  s;; :;c s;c sjc 3{c s',:  3*c  # y : 3". 3;: # #  3j: >;;  3;; sjc >£  :£ 3;.  sjc  3;;  3;; # 3;: :;: 3;;  3; 

/  sit  =;• *  *  *  si"  s|:  s;-  *  V 1;  if  '■•■  ■■  if  t  if  if  if  if-  *  #  sit  sit  ft  *  *  *  i?  if  *  *  *  #  *  * 

/  if  2  ?  '  ‘  y  *;! 5'; !'' :'"  if  •■■  if if  s'.1  if3'f  if  if  ■'f  if  if  si:  s’.:  ■:■ V sit  s(t  s|t sit  sit  s,t 

/*  y  I L  r' :  OLOPAL.S^C 

version:  B-t yw y i{ 

PROC  EDU  i;  FS 

DFFINFD:  NONE 


3;: 3^  3*c  3^  s’:  :;c  # v  *i 
*  $  *  s;c 3,:  3;< 3;:  # 


*  / 
/ 


REMARKS -.THIS  MODULE  CONTAINS  DECLARATIONS  FOR  ALL  THE 
GLOP 1 L  D  4T  4  THAT  RFSIDFS  IN  SHA-.ED  COMMON 
MFMOR Y .  IT'S  LOCATED  THERE  BY  THE  LOCATE  COM¬ 
MAND  AND  BY  SPECIFYING  THAT  THE  ' 

GLOB AL$ MODULE _D AT fc  SEGMENT  BE  LOCATED  AT  SOME 
APSOLUTF  ADDRESS. 

*/ 

/  •'«  >■'  *'»  «•'*  ^  «'•  »'*  »'*  >V  »V  »<»  «>.  *•*  j.  •'<  y<  *'<  J.  »■#  J<  •'»  «)<  *•*  J»  *l»  *'<  *'»  A  %•<  »'»  »'»  •/*  »■'  '*  »'»  •'»  »'/  »'*  »■*  »*•  *'■  «.  •  •••  »■*  »'■  »'»  •*»  »'■  y»  5';  / 
/  3|S  >,  -  7, .  3,*.  #,  >|\  #,»  Jj~  »,«  «  *  ^  /,«  7,'  #|»  7| -  ^  /,*  7,\  ^  *>1*  #,*  #,»  »| -  v  / 


GLOB AL$MODULE  DO; 

/  sit  Jj:  Jjs  :;t  sjesjs  sjc  *  sfc  j{*  X«  >r  *  #  Sr  >!'s:tJ{S3:':(t:{ts;t#s!ts£sf  s;ts*:4ts£s*s}is;ts;ts!ts;ts;t  sis  VtfV***  *  j 

/if  if  if  s|t  sit  i‘;.  s;t  ;|t sit  s'-  sit  sit  s'  s;-  sit  s|t  s^  s|:  sit  si;  sit  if  s;t  sit  sit  sit  sit  sit  sit  sit  s;t  sit  sit  sjt  sit  >;t  s;t  s;t  s;.-  s;t  sit  s',t  s;t  sit  s;t  sjt  sjt  s;t  ^t  sit  s;t  if  sit  sp  s^  s;t  sit  j 

/*  THF  FOLLOWING  TF?rE  LITERAL  DECLARATIONS  ARE  ALSO  */ 

/*  GIVEN  IN  THF  LEVEL1  &  LEVFL2  MODULES  OF  THF  OPERATING  '■■  / 
/*  SYSTEM.  A  CHANGE  HEr<F  WOULD  HAVE  TO  BE  REFLECTED  IN  */ 
/*  THOSE  MODULES  ALSO.  -/ 


DECLARE 

M  AX$  CPU  LITERALLY  '10', 
MAX$VPS$CPU  LITERALLY  '10', 
MAX$CPU$$4$MAX$V?S$CPU  LITERALLY  '100'; 


DFCLAF.E 

GLOB  A L$ LOCK  BYTE  PUBLIC  INITI»L(0); 

/*  THIS  SHOULD  REELECT  TPE  MAX$CPJ  ABOVE  */ 
DFCLARF 

NR$RPS  BYTE  PUBLIC  INITIAL(O), 

NR$VPS  <  M.»y$CPU  )  PYTE  DU?LIC 

I N  I T I A  L  (  0 , 0 . 0 , 0 ,0  , 0 , 0 , 0 . 0  , 0  )  ; 

DFCLARF  HDWYI N^AFLAG ( MAXtCPU  )  BY^F  PUBLIC  ; 


DECLARE  EVENTS  BYTE  PUBLIC  INITIAL(l); 
DECLAFF  LOC AL$CLUSTER$  ADDR  WORn  PUPLIC! 


DECLARE  E  V  C  $  T  B I  '  1 0  O  )  STRUCTURE 
(EVC$NAMF  BYTE, 

VALUE  WORD, 

R  EMOTEi A  DDR  WORD, 


1R4 


THREAD 


BYTE'  PUBLIC 

INITIAL! FFEH , ? , CEFFFH .25b  ) 
/*  EVC  "7V’’  IS  RESFRVED  FOR  T M F  OP  SYS  •■=/ 


DECLARE  CPU$I NIT  BYTE  PUBLIC  INITIALS); 

DECLARE  SEQUENCERS  B  VT’?  PUBLIC  INITIAL(O); 

DECLARE  SFO-T  !'BLE(  IOC  )  STRUCTURE 
'SEO$N»mt  BYTE, 

S  EO$ VALUE  WORD)  PUBLIC; 


DECLARE 


v ?u '  m a  x$ cpu$  $  $ $  u « y $  vps  $ cpu 


V  PHD 

BYTE, 

VPSSTATF 

BYTE, 

V?$ PRIORITY 

BYTE, 

E VC  A  THREAD 

BYTE, 

EVCSAVS VALUE 

WORD, 

SPHEG 

WORD, 

ssheg 

WORD) 

)  STRUCTURE 


PUBLIC  ; 


END;  MODULE  */ 

y  5^:  5;;  *  5^  *  s',:  *c  #  #  #  #  #  sj:  ;Jc  s*e  s;s  #  #  #  #  #  # #  j|:  £  #  s|:  5;:  s;c 


sjc  ajc 


IRE 


/* 

/* 


i- 5;:  *  f.  X  : 

INITV' 


r  X:  X1  X*  X'-  X=  X:  X,:  X:  X'  X:  Xs  >“  s;:  #  -;c ;;:  jjs  j;:  X  ,-;•  X=  *  *  *  *  *  X  X  X  ■.■  X  X  XXX  / 


MODULE 


BREWER  9-13-34 


/j|-  _ _ _ _ _  .  ______  _____  ______  ___ _ _  _ _ _ 

/  *  "" 

/*  TEE  CODE  SEGMENT  OF  THIS  MODULE  IS  WHAT  RESERVES  SPAC 
/*  BY  THE  0?  FOR  THE  USER  IMITIAL  PROCESS.  THIS  IS 
/*  EXECUT'BLF  IM  IT'S  OWN  FIGHT.  THUS  IF  THE  USER  DOES 
/*  NOT  PROVIDE  AN  INITIAL  PROCESS  THIS  ONE  A  ILL  EXECUTE, 
/*  ELOCK  ITSELF,  AND  I DL  *  THE  CPU.  THE  ADDRESS  OF  THE 
/*  INITIAL  COTE  SEGMENT  IS  PROVIEVD  TO  LEVEL1  AND  IT  IS 
/*  REFLECTED  IN  THE  PLM  LOCATE  COMMAND.  THE  ADDRESSES 
/*  PROVIDED  MUST  AGREE.  THIS  PROCESS  HAS  THE  HIGHEST 
/*  PRIORITY  ANT  WILL  ALWAYS  BE  SCHEDULED  FIRST  BY  THE 
/*  SCHEDULE*  . 

i  _ _ _  _ _ _  _ _ _  _ _ _ 


/*  CALLS  MADE  TO: 

y  V  -T*  ${*  o'  -!*  *!'  -I* ^  # 

I  N  I T $ M 0 D  :  DO? 


A  WAIT 

5;;  X?  X'  XX  XX  X  X  X  X  5j:  j{t  *:  X  *  X  X  #  X  #  X:  #  ;  j:  X  X  >;s 


•i*  »r  V  V 


i 

*/ 

•v 

*/ 

»•,/ 

*/ 

'•V 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/*** 

j  *  w 

/* 


MX  TRACE  *****  MXTRACE  *****  MXTRACE  *****  MXThACE 
MX  TRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE 
DECLA  iE 


x  **  / 

sjt  s(:  ^ 


/*  MSG  13 ■  * )  BYTE  INITIAL(10,  'ENTERING  INITIAL  PROCESS  ', 

/*  13,10,'%'); 

/*  OUT$LINE:  PROCEDURE'  PTR  )  EXTERNAL? 

/*  DECLARE  PTR  POINTER? 

/*  end; 


/xx  =;•• 

/  '1*  2,C 

AW  AIT 


MXTRACF  ***** 
MXTRACE  ***** 
:  PROCEDURE ( 


MXTRACE  ***** 
MXTRACE  ***** 
N»ME.  VALUE  ) 


MXTPACE  ***** 
MXTRACE  ***** 

external; 


DECT  ARE  NAME  EYTr ,  VALUE  WORD! 


MXTRACE  ***/ 
MXTRACE  ***/ 


end; 


I N  IT  I  A  L  $PPOC :  PROCEDURE  PUBLIC; 


DECLARE  I  BYTE; 

/*  AFTER  INITIALIZATION  THIS  PROCESS  BLOCKS  */ 

/*  ITSELF  TO  *LLOW  THE  NEWLY  n? E  JT ED  PROCESSES  */ 


/*  TO  Ep  S CUEDUI ED . 

/*  THIS  A iJ E A  SHOULD 
/*  PROCEDURE  module. 

/***  MXTRACE  MXTRACE 

/***  MXTRACE  *****  MXTRACE  * 

/*  CALL  0Um<LINE(G»MSG13  U 
/***  MXTRACE  *****  MXTRACE  ***** 
/***  MXTRACE  *****  MXTRACE  ***** 


BE  WRITTEN  OVER  BY  USER  INI 


Xs  X<  X'  *  * 


MXTRACE 

MXTRACE 

MXTP ACE 
MXTRACE 


X'.#*  v* 

v*.  »• .  jl#  J1#  Vj 

X:  *  *  *  * 
X;  Xs  X: X? X; 


*/ 

*/ 

*/ 

MXTRACE 

MXThACE 

MXTRACE 

MXTRACE 


•it  V  f 
>Js  v  i\’  / 

v  v  #  1 
***/ 


CALL  AWAIT'  0FEH,  1); 
ENI J  /*  I MITI ALiPROC  */ 
END;  /*  INI T$MOD  */ 


1?6 


APPEKiriX  K. 


NI3P1P  DFVICE  DR  I  \’ER  »yn  PACKF";  PPQCE3S0K  SOURCE  CODE 

This  codp  corsists  c f  PL/I-S6  modules  and  8CP6  assembly 
language  modules.  PL/I-PP  is  primarily  an  duplications 
'pros,  rammi "g  language,  rather  than  a  systems  development 
language.  As  such,  it  does  rot  have  the  language  features 
to  gain  access  to  the  P-ypp  processor  cr  MULTIBUS  nardware. 
In  situations  where  it  is  recessa^y  tc  access  ha  -’ware- 
dependent  components,  R AS M05  fRef.  IP]  modules  are  called. 
These  assembly  language  routines  are  located  in  file 
ASMR0UT.AP6  (assembly  language  routines),  and  are  linked 
with  the  FL/I-P6  modules. 

As  described  in  detail  in  Chapter  IV,  the  Driver  is  a 
MCORTEX  system  process  with  a  dedicated  real  processor.  Its 
linking  conventions  and  use  of  MCORTSX  primitives  are 
identical  to  any  usar  process,  The  notable  exception  is  the 
use  cf  its  initialization  nodule  to  define  the  cluster 
address,  0  0  a  t  n  secu°rcers,  create  eventcounts,  a  r  d 
distribute  the  eventcounts. 

The  Driver  also  reads  a  file  called  fl DDRES3  .  DA T  to 
determine  its  own  ohysical  Ethernet  address  ana  addresses  to 
load  into  its  multicast  (or  grout)  address  table.  Mote  the 
type  cf  data  in  ADDRESS. DAT  must.  be  bit  string  for 
addresses,  and  fixed  binary  for  the  rubber  0 r  group 

IP? 


addressDs  . 


Th°  SY S I M I T1 . PLT  filn  is  the  initialization  module  for 
]l”Ster  1  and  SYSI NIT2. PLI  is  the  initialization  modi:le  for 
Cluster  2.  These  files  and  APTF{ESS.  TAT  are  the  only  system 
files  that  must  be  changed  when  new  MCORTFX  processes  are 
added,  causing  a  change  ir  eventcount  dis t ri bu ti v i t y . 
MC0RTFX  processes  may  be  readily  ported  m  executable  image 
form  from  one  cluster  to  another.  The  eventcount 
distribution  changes  only  reauire  a  change  in  the  Driver 
initialization  modules  and  the  cluster  ADDRESS  .DAT  files. 
The  amount  of  r  ecom  pi  1  a  t  i  on  and  linKin.g  is  pept  to  the 
absolute  minimum  with  this  schema  . 

The  contents  of  SYSDF^.PLI  ■ Appendix  E),  ADDRFSS.DAT,  and 
the  Driver  initialization  modules  reflect  the  current  system 
configuration.  This  is  the  demon' tra t ion  process  described 
in  Appendix  T . 

Due  to  thesis  format  reauirement s ,  the  structure  of  the 
source  code  is  slightly  altered,  i.e.,  PL/I  statements  are 
not  necessarily  compilable  as  illustrated. 


»'<  V'  «y  V*  y*  '  *'»  »'<  V*  *■*  »'*  *•»  y*  *'«  »•'  y  •  Jf  «.'»  *'»  y*  *i*  j<  *■*  y>  y«  %v  y*  y*  »'»  •*»  *’»  »•»  *•»  y*  y  »  k<<  y*  >v  tv  »  »  V.  v1-  »v  *  *  *•  >•  >'<  «I<  *•»  «  .  y»  *■»  »•»  •’<  y .  v  , 

*r  o'  o'  o'  o*  o'  *i  O'  v  " > •  *1'  'i-  »«■  'i-  ',•  o'  o  v  o'  v  o'  v  'i*  v  o*  o-  o'  o~  v  'i-  '<»  '.*  o'  'r  v  *.*  'i*  o'  o'  o'  n*  o'  'c  -i*  »,*  »,•  o'  *,*  o*  o*  »i»  o*  o'  o*  »,•  «•,* 

»V  y^  *l-  s1-  -  '*•  y*  o#  %v  y#  y#  y^  y^  y#  •» ■  -  %•*  y«  y»  \>#  y -  y«  <u  %*»  x  y^  y#  J »  y#  y«  y>  »x»  y-  y«  y-  y_#  o ,  Vv  y-  y-  »■#  y#  y-  <.u  k  *  *y  •■.  «v  «  « ••«  j,  »■  * . 

'Is  O'  'I'  V  A'  n'  V  *1'  V  *t‘  *)•  O'  *!•  V  0~  T*  O'  O'  '|*  *|  v  O  '|»V  O'  V  O  '|*  'l'  O'  O'  O'  O'  n-  v  T  V  '!•  'I-  O'  »1‘  O'  'I-  I-  O*  »!>  ',•  o*  o  -  -V  «|*  ^  »,•  o' 

***  Cluster  1  AC-r'-'VSS.fAT  file 

y  y»  »  •  v<  y-  y*  y*  «  *  *■*  y»  »><  »•<  yu  »*.  %  *  ■.’«  y*  *t»  y*  y<  *>.  y<  y-  y.  y  *  y<  »*»  y<  «■>  y<  »■»  y>  y<  %•*  » 

n  'I'  O'O'  O'  'I'  -V*  O'  O'  O'  O  O*  O'  O  O'  'I'  O'  O'  O'  O'  O'  O*  O'  O'  O*  O*  O'  O'  -----  -  — -  - -  - 


1 . 

'000000 :  c ' b ,  '00000001  'b, 

'00003003  ' b  ,  '  00000001  'b 


5r  ♦  >1  £  a;:  #  j;:  :  Jfrj;-  <tjp  #####;;<  ft####  #  ;,t  ?;:  j,:#  ;;; 


•**  yu  *■. 
O'  O'  O' 


y-  y-  -  .  y-  » 


y.  -c-  ,i.  y.  > 


SYSINIT1.PLI  file 

#  O#  y-  y-  y«  y*  \U  y>  y.  y#  «l  y-  x  y*  y«  y*  y«  y*  x  y-  y/  y*  y#  y#  y*  «*«  si#  «-«  . 

>  -|-  o'  o'  o'  o'  o'  *r  o'  o  -  “i -  o'  —  —  —  i  -j-  o'  O'  o'  o  -  o'  o'  o'  *i'  o'  O'  o'  o'  o'  o'  'r  o'  O'  o'  ^i' 


sysinitl:  proc  options  (main); 
^include  'sysd  °f .  pi  i  '  J 
%r epl a  ce 

EVC  TYPE  '  by  '00'b4J 

/*  main  #/ 


call  define  cluster  ('000l'b4); 


/*  must  be  called 
prior  to  creatinr 
eve's  */ 


J  O'  O  '  o' 

:  USER 

f 

call 

create 

eve 

call 

create 

eve 

ca  1 1 

c  rea  te 

eve 

call 

create 

_  ev  c 

j  y-  <'#  >  . 

/  ,r 

S  YET™ 

***/ 

cal  1 

c  r^a  t r 

eve 

ra  1 1 

create 

eve 

call 

create 

sea 

/*  di 

s  t  r  i  b  . 

map 

been  created 


(TT'ACK_IN)  ? 

!  T^ACE_OUT ) ; 

(  M I S S I LE_0RD ER  _I N  )  J 
(MTSSILE_ORrER_OUT)» 


'  1?PB_PEAD)  J 
'  EPP_WP  I  TF  ) ; 

!  EPP_WP  I  TE_R  rytJEST  )  J 

callad  after  eventcounts 

*/ 


have 


call  d  1  s  t  ri  bu  t  io  n_ma  p  ''EVC_TYDE,  TRACK_I  M  ,  '0003  '  b4  )  J 
/*  local  and  remote  rooy  of  TRACK_IN  needed  :|:/ 
call  distribution  mao  EVC_TYPF,  MISS  I  LE_0nDE'  _CliT  , 

' 0003  '  b4  i  I 

call  creatp_oror  (  'fc 'bd  ,  '°0'b4, 

'0950  '  h4  ,  ' 0P00  '  b4  ,  'J0bf'b4, 


1  °9 


'0409  'b4  , 

call  avait  ('fe'b4,  '01' 14) 


0800  'b4 


*8  00  '  r4  ) 


e  r  cl  s  y  s  i  n  i  1 1 ! 


V  >r  ;r  V  *r  V  'I*  v  v  v  v 
>;«  X~  X:  ip  #  #  sj;  i|: 


X=X'  i;-;:##***#**' 

* 1  *  «*■*  ^  •.**•  J#  »**  ^ 

•i1  'i  *.*  -p  v  »p  ‘t'  v  •»'  *p  i*  -i* 


X?  5^  X1  ijc X'  i|:  #  sp  #  jfc  j|c  # sj<  j;s r|t  ip  i'p 

*■#  •*  %■«  «’#  «J  *  •. 1 '  s 1  *  -  *  -  «V  ^  vU  V*  -■#  *’*  J.  »'**  »>« 

'p  *p  ',’  #|W  #|*  *p  /,»  »f*  'i'  *p  #,•  #p 


Cluster  2  AODRFSS.DAT  file 

-,T  *  * # sp  *  *  *  ¥  *  *  *  *  #  *?  #  *  #  *  *  *  *  *  #  if  * 


s;t  X:  >;: 


'  *r  •i'  'i*  r  ' 


1  , 

'00C/00O0'b , '00000210  'b. 
'30000000  ' b ,  '30000010  'b 


i,<  V*  v  X*  *»■  V  v  V  X*  X*  X;  X*  '.*  'r 
X'  X*  X" 

ip  ip  >;c  ip  ip  ip  ip  ip  5[i  ij*  njc  ip 


'!'  v  v  3p  X*  v  X'  Jp  ip  ip  ip  X;  »!•  *r  V  ip 

5|:  i|F  #  ip  i|:  #  #  #  £  ip  iji  ijc  ijt  #  # 

S Y  SI NIT2.PLI 

*1,  «_l»  *t.  «l,  ,l<  »V  kU  *.<>  *•*  »l»  *•«  *'»  *k  J# 

•p  >p  *p  '»*  *1'  'I*  'l*  'I*  "»**  'f  V  *1  • 


v  'P  V  V  'p  v  V  X”  V 

X'  #  ij;  X'  X*  >p  X-  X^  X^ 

file 

Xc  -*c ijc  ijc  ip  i£  ;,r  >;- 


*•»  o» 

V  'I*  V  '.' 

X'»  X-  5p  :p 

X«  ijc  ip  i,: 


s.ysirit2:  proc  options  (main); 

'^include  ' s ysd ef .  pi \  '  I 
'£  replace 

SVC  TYPF  by  '00'b45 

/*  mair.  */ 

call  def ine_cluster  ('0302'b4);  /*  must  be  callea 

prior  to  crea  tire 
eve's  */ 


/* 


USER 


call 

c  rea  *  ° _ 

eve 

;  T r’  A  C  K  IM); 

call 

create 

eye 

(T?ACV  out); 

cal  1 

create 

eve 

>  v I S S I L  S  ORP  FE 

in); 

call 

c  r  pa  t  ° 

P  v  c 

FISSILE’ COPSR 

_c  jt  ) ; 

/**>■ 

SYSTEM 

V«  *<*  i 

'>  *1'  •»’  / 

call 

create 

eve 

i  vt-i;  UFAF  )  i 

call 

create^ 

eve 

(  Fr'B_W?  I  TF  )  ; 

call 

create 

sea 

1  F  WRITE  REQUEST); 

ipe 


/v  disfrlb.  map  call  pi  pvpr.tcounts  nave 

op  r rpa  ted  ^  / 


ca  1  1  d  i  s  t  r  i  t  u  t  i  o  *i _'T a  d  VV  I  Y  PS  ,  Th  AG  rl_CiJT  ,  '/ .  v.’/  '  t 
local  ard  remote  roc.V  of  '!VACX_IN  reeded  / 
call  ^  i  s  t  r  i  bution_’na  d  •  fVC  TVPE,  Ml  SSI  L2_0  dl)  F.\_l  ? 

'0003 'b4) 5 

local  ar.d  re-note  copy  of  MISS  ILE_  OFDSr  IN  reeded 
call  ureate_proc  f'fc'C4,  'Q0'b4, 

'0950 'b4,  '0800  '  b4  ,  '005f'b4, 
'043O'b4,  '0800'b4,  '0800'c4); 

call  await  ('fe'b4,  '000l'b4)J 


y  e  i  rs  i  t  ? ; 


5;<  s.:  #  ;j;  f,;  :;t  s;:  #  #  sjx  jfc  5}c s;j  >|s  #  #  >;c  ;;j  v  #  :;c  :;c >r  5.:  :,t  # 

V  #  #  #  5.-  Ji'  #  3!:  3r  3;:  #  s',:  ;|t  :;i  jjc  ;|t  :;c  #  #  jfc  ^  rjs  ;v  j.'t  ?,r 5;: ;; 


N 13010 . PCL  file 

#>«  ^  %*#  W#  4*#  ill#  1,1#  4*»  »1#  4*#  \l#  O#  «V  NV  4*  V#  4*#  «v  V#  4  #  4'#  4l#  41#  4I#  *V  *tV  W#  41#  41#  V'  V*'  4*.  4‘#  41#  4  '#  4V  41#  41#  4*'  4  #  41#  4  #  4 

4  3,4  »,4  #|fc  #|4  #,4  #,4  #,.  »,  #)4  >,  «)>  »,V  #,4  #  ,4  Jjl  ^4  .,4  #,4  #,4  .,4  4  .,4  #,4  #  ,"  #,*  #,'  »!'  #)'  3, »  #,«  #,  •  «,>  »,4  3,4  >,*  <|4  #,4  #,4  # 


^replace 


/  5!c 


I/O  port  addresses 


These  values  are  specific  to  the  use  of  the  INTEPLAN 
'113010  yIJLT  I  PUS  to  vTHEr  NET  interface  board.  Ary  chan, 
to  the  I/O  port  address  of  '  0  0  b  O '  hex  (done  so  witn  a 
switch!  will  r^ouire  a  change  to  these  addresses 
reflect  that  chare*3. 


*/ 


corn a nd  rn sister 

by 

'w 

>4, 

coorani  status  r°ftister 

by 

'  u  1 

b4. 

t  r a r s ~ i t _  i a t a _ register 

bv 

'b? 

'b4  , 

i  r.  te  r  1  u  d  t_s  ta  tus  re^ 

by 

'b£ 

'  b4  , 

interrupt  °ral>  ref--ist0r 

W 

'be 

'b4  , 

h  i zh  byte  count  r»!i 

by 

'  nc 

'  b4  , 

low  byte  noirt 

b  v 

'bd 

'  P4  , 

/*  ->nd  of  1/0  port  addresses  */ 

/*  In^rniDt  enable  status  register  values  */ 


disabla_  r i 001 0_ i n  te  rrupt  s 

by 

'0  0  '  b4  , 

r.  i/010  in  trots  disabled 

by 

'  0  0  '  b  4  , 

receive  bloc/  available 

by 

'04  '  b4. 

transmit  ire  dorp 

by 

'06'  b4  . 

r e r p i v e  d  m  a  d  ore 

by 

'07  'b  4  , 

1'"^  - 

RD-ftl52  961 

A  REAL-TIME  EXECUTIVE 
(U)  NAVAL  POSTGRADUATE 
DEC  84 

FOR  MULTIPLE-COMPUTER  CLUSTERS 
SCHOOL  MONTEREY  CR  D  J  BREWER 

3/3 | 

UNCLASSIFIED 

F/Q  9/2 

NL 

■ 

END 

/#  end  register  values  */ 


/*  Command  Function  Codes  */ 


module_ i nterface_ looDback 

by 

'01 ' 

'  b4 

interna 1_1 oop back 

by 

>2 ' 

'  b4 

clear_looDback 

by 

'03  ‘ 

’b4 

go_of fline 

by 

'08' 

’  b4 

eo_onl ine 

by 

'09  ‘ 

'b4 

onboard_di agnostic 

by 

'0a' 

’  b4 

clr_insert_source 

by 

'0e ' 

'  b4 

1 oad_transmi t_data 

by 

'28' 

’  b4 

loai_and_send~ 

by 

'29' 

b4 

load_group_addresses 

by 

'2a' 

’  b4 

rese  t 

by 

'3f ' 

’  b4 

end  Command  Function  Codps 

*/ 

:;s  sj;  #  )jc  ^  :|c  s|;  #  !(c  sfc  >Js  #  s;t  $  >J<  >Jt  5^  #  9gc  sj;  >J«  #  #  tj:  #  t'f  5j;  Jj;  :|t  s;:  gjc 


*'/  -‘f  V'  * 

'i'  v  »r  'i*  »r-  v  * 


*#*  SYSDEV.PLI  flip  *** 

¥♦*£  *£*###**■#  £#  5^4=  ##  Jr  sje 5^  *1^34*  j{f  if  if 3ft 5^ 54» $$$# ##$$$  if  >:s a{=  s?#*# 


sysdev:  procedure? 


/*  Date:  1  SFPTFMBE^  1984 

Programmer :  David  J.  BREWER 

Module  Function:  To  serve  as  the  Ethernet  Communication 

Controller  Board  (NI3010)  devicp 
handler.  This  process  is  scheduled 
under  MCORTEX  and  consumes  Ethernet 
Peauests  Packets  (EPP)  venerated  by 
the  SYSTEMS 1 0  routine  in  LEVEL2 . SRC  . 

It  also  processes  any  inbound  packets 
by  analyzing  the  racket  contents  and 
making  the  aporooriate  MCORTEX  calls. 


*/ 


■^replace 


p vc  type 

by 

'00'b4, 

erb_block_ 

1  en 

by  20. 

erb_block_ 

len_ml 

by  19, 

infinity 

by 

32767? 

^include  ' sysdef . pi  i '  .* 


*  -» 


Cvi  CV  CVi  C\i 


PFCLAKE 


1  erbfPrerb^blook^  ler>_ml)  based,  (block  ptr) 
2  command  bit  '8), 

2  type_name  bit  fa), 

2  name_value  bit  (16), 

2  remote  addr  bit  (16); 


DECLARE 

1  transmit_data_ block  based  (xmit_ptr;, 

2  des  t, ina t  i  on_add  ress  a 
bit  (a)  , 

2  destination  address_b 
bit  (8)7 

2  destination_address  c 
bit  (8). 

2  destinat i on_address_d 
bit  (8), 

2  des tinat i or _address_e 
bit  (8)  , 

2  destination_address_f 
bit  (8)  , 

2  source  address  a 
bit  (8)  , 

2  source_add ress  b 
bit  f 8 ) , 

2  source_address_c 
bit  (8), 

2  source_address  d 
bit  (8), 

2  source_address_e 
bit  (8)  , 

2  source  address  f 
bit  (8)  , 

2  tyue  field _a 
bit  (?)  , 

2  type  field  b 
bit  (P], 

2  data  (46)  bit  (8), 


1  receive  data  block  based 


( rcv_ptr ) , 


f rame_status 
null,  byte 
frame  _ len£th_l sb 
frame  length_ms b 


bit  (8), 
bit  (8)  , 
bit  (8)  , 
bit  (8)  , 


2 

destirat,ion_address_ 

a 

bit 

(8) 

2 

destination_address_ 

b 

bi  t 

(3  ) 

2 

destination_address_ 

c 

bi  t 

(8) 

2 

destination~address_ 

d 

bi  t 

(6) 

2 

dest.  ination~adiress_ 

e 

bit 

(3) 

2 

destination  address 

f 

bit 

(8) 

2 

sotirce_address_a 

bi  t 

(8) 

2 

source_address_b 

bit 

(8) 

2 

source_address_c 

bit 

(8) 

2 

source_address_d 

bit 

(3) 

2 

sou"ee~addres  s^p 

bit 

(3) 

2 

source_addr es  s_f 

bit 

(8) 

2 

ty  pe_ f ield_a 

bi  t 

(3) 

2 

type  field  b 

bi  t 

(8) 

2 

data (46) 

bit 

(8) 

2 

cr c_ms  t 

bi  t 

(8) 

2 

crcppper_middle_ 

.byte 

bit 

(8) 

2 

crc_lower_Ttiddle_ 

byte 

bi  t 

(8) 

2 

crc  lsb 

bit 

(8) 

(xmitptr,  rcv_ptr , block_ptr )  pointer, 
index  fixed  bln  (15), 

(addr.e,  addr_f^  bit  (8), 

address  file, 

copy_ ie_register  bit  (8), 

1  clus  ter_  addr  ,erb_wri  te__valne ,  i  )  bit  ( 16  ) . 
( .1  ,k  )  f  ixed  bin  (15)  , 
regvalue  bit  (8)  , 

vrite_io  port  entry  (bit  (8),  bit  (8)), 
read_io_port  entry  (bit  (8),  bit  (8)), 
initial ize_cpu_interrupts  entry , 
enable_cpu_ir terrupts  entry, 

d isable_rpu_interrupts  entry, 

write^bar  entry  (bit(16))J 

/#  end  rrodulp  listing  #/ 


^replace 

/*  coffps  spprifir  to  thp  Intel  8259a  Programmable 
Interrupt  Controller  (PIC)  */ 

irvl  oort_address  by  "c0'b4, 

/*  note  that  */  icw2  port_address  by  'c2'b4, 

/*  icv2,icv4,<!/  iev4_port_addres s  by  'c2'b4, 

/*■  and  ocw  */  ocv_port_address  by  ,c2,b4, 

/*  use  same  */ 

/#  port  aidr  */ 

/*  note:  lew  ==>  initialization 

control 


1 


word 

ocw  ==>  operational 
command 

word  */ 


icwl  by  'Iv5'b4, 

/*  single  PIC  conf iguration ,  ed^e 
triesered  input  #/ 

icw2  by  '40'b4, 

/*  most  significant  bits  of  vectoring 
byte:  for  an  interrupt  5, 
the  effective  address  will  be 
( icw2  +  interrupt  #)  *  4  which 
will  be  (40  hex  +  5 )  *  4  = 

114  hex  */ 

icw4  by  'P)f,b4, 

/*  automatic  end  of  interrupt 
and  buffered  mode/master  */ 


ocwl  by  '8f'b4; 

/*  unmask  interruDt  4  (bit  4),  */ 

/*  interrupt  5  (bit  5),  and  v/ 

/*  interrupt  P  (bit  6), mask  all  others  */ 


/*  end  8259a  codes  */ 

| 


/#  include  constants  specific  to  the  NI3010 
board  ■•' / 


^include  ' ri 3010  .del 


/*  Main  Pody  */ 


rail  write  io  oort ( in terruot  enable_reeister  . 

di sable_nT3010_inte  rrupts  J  5 
call  initialize_pic; 
call  mitialize_cpu_interrui>ts; 

call  read_lo_port  ( command _st a tus_register , reg_value  ) ; 
call  pe  rform"  command  (reset); 

call  program  grour>_addresses » 

/*  assignments  to  the  source  and  destination  address 
fields  that  will  not  charge  */ 

call  perf orm_command  < clr_insert_source  ) ; 

/*  4113010  performance  is  enhanced  in  this  mode  #/ 

unspec ' block_ptr )  =  b 1 ock_pt revalue ; 
unspec( rcv_ptr )  =  rev. ptr_value? 
unspecf xmi t. otr )  =  xmit_ptr. value ; 

/*  make  one  time  assignments  to  transmit  data  block  */ 

transmi t_iata_ block .destinati on_address_a  =  '03'b4» 
transmit  data_ block. destination_add ress_ b  =  '00'b4J 
transmit data_block.destination_address_c  *  '00'b4; 
transmit"data  block. destinati onaddress^d  *  '00'o4J 
transmit  data  block. source. address_a  =  '03'b4! 
transmit  data^block.sourceladdress_b  =  '00'b4J 
transmit  d ata. block .source_address_c  =  '00'b4i 
transmitdata  block. source_address_d  =  '00'b4» 

/#  get  the  local  cluster  address  -  file  was 
opened  in  proc  program_group_add resses  */ 


pet  file  (address)  list  (addr_e,  addr.f); 
t ransmi t  data  bl ock .sou rce_add res s_»  =  addre! 
transmit  data_block.source_address_f  =  adar^f; 

cluster  addr  =  addr  e  !  1  addr  fi 

put  skip  (2)  edit  (7***  CLUSTFR  ' ,  clus ter_add r , 

Initialization  Complete  ***') 
(col(15),a,b4(4),a); 

i  =  '0001'b4; 

call  perform  command  (go_online): 

/*  at  this  point  copy_le_reg  =  PB4  ,  but 
ie_reg  on  NI3010  is  actually  disabled  */ 
call  disable  cpu. interrupts* 


do  k  =  1  to  Infinity? 

/*  rote:  interrupt  not  allowed  during  a 
call  to  MCCRTEX  primitive  *' 

erb  write  value  =  read(ERB  WRITE); 

"/5;:  Ir  the  MXTRACF  version  of  the  RTOS 
all  primitive  calls  clear  and 
set  internets  (diagnostic  message 
routines),  so  the  NI3010  interrupts 
must  be  disabled  on  entry  to  MXTRACE  */ 
do  while  (erb_write_value  <  i); 

/*  busy  waiting  */ 
er b_ write_value  =  read ( E?B_WRITE ) ; 
copy__ie_register=receive_blocK_ava  liable; 
call  write_io_port ( interrupt  enabl e_regi ster , 

receive_b!ock_available) ; 
call  enable_cpu_interruptsJ 
/*  if  a  packet  has  been  received ,  this 
is  when  an  interrupt  may  occur  -  can 
see  that  outbound  packets  are  always 
favored.  */ 
do  ,1  *  1  to  1000; 

/*  interrupt  window  for  packets  received  */ 
end;  /*  do  .1  */ 
call  d isable_cpu_interrupts « 

if  (copy  ie_regist,er  =  rereive_dma  done)  then 
do; 

/*■  receive  DMA  operation  started,  so  let 
finish.  */ 

call  enable_c pu_i nterrupts ; 

do  while  (  copy_ie_regis  ter--recei  ve  dna_d  one  ) 
end ; 

call  d  isable_cpu_interrupt s ; 
end;  /*  ift  */ 

copy_ie  register  =  disabie_ni?010_interrupts; 
call  write_io_port(interrupt_pnable_register, 

disablp_ni3010_interrupts); 

end?  /*  busy  */ 


/*  FRB  has  ar.  ER?  in  it,  so  process  it  */ 
no  external  interrupts  dBA  )  until 
the  ERD  Is  consumed  and  the  packet 
gets  sent  #/ 

index  =  mod (( fixed  ( i  )  -  1),  er b_bl ock_len ) ; 

/*  32k  limit  on  parameter  to  fixed  fen.  */ 
transmit  data_ block. data(l )  =  erb( index ) .command* 


transmi t_data_bl ock .data ( 2  )  =  erb( index ). type_name; 
transmit  data_block.data(3)  = 


transmit  data  block. data(4)  = 

substr(erb( index ) . name_va lue  , 

i ,  p ) ; 

transmit, data  block  .d es t i na t i on _add re ss_e  = 

sabstr  Or b(  index  ) .  remcte_artdr  ,  1  ,8) » 
transmit  data  bl or k .d es t i nati on_add ress_f  = 

substr>erb; index  ).remote_addr,  9,8); 

call  advance  (EPB_RE*D);  /*  caution  here  !!!! 

an  ADVANCE  will  result  in  a 
call  to  VP$SCHEDULEn ,  which 
will  set  CPU  interrupts  on  exit. 
It's  the  reason  NI3010  interrupts 
are  disabled  first  in  the 
Do  While  loop  above.  */ 

/*  packet  ready  to  so,  sc  send  it  */ 

call  trarsmi tpacket; 

/*  c opy_ie_resister  =  RPA  ,  but  not  actual  resister  #/ 
call  disable  cpu_in terruptsl 

/*  settins  up  for  next  ?RP  consumption  * / 
i  =  add2bitl6(l,  '0001'b4)S 

end;  /*  ho  forever  #/ 

/*  end  main  body  */ 

I  if  ifif  :|t  :|t  if  if  *  #  if.  if  j*r  if  *  #  *  *  if  if  jjt  ;I:  >J:  ije #  #  if  j{«  if  if  if  if  if  if  s|s  s',: : ;;  s|:  if  if  if  if  * / 


initialize  pic:  procedural 


DECLARE 

write  io  port  entry  (bit  (3)  ,  bit(8))J 

call  wri te_io_port  (icwl_pcrt_address ,icwl ) ; 
call  wri te_i o_port  ( i cw2~port _add ress , icw2 ) 5 
call  wri te_i o_port  ( i rwl_por t _add ress , i cw4 ) ; 
call  wri te_i o_port  ( o cw  port _addr es s , ocwl ) ; 


end  initial! ze_pic; 

/  if  if  if  if  if  if  :|S  s;s  if  if  if  if  if  if  itif  if  if  if  if  if  if sir  it  *  if  if  if  if  if  s'.r  >>t  £  #  if  if  if if  sp  Jj;  sir  :-,t  sir if  if  if  J 


p°rform_connand : 


procedure  (compar'd); 


DECLARE 

command  hit  (8)  , 
re^value  bit  (8)  , 

srf  bit  '8  )  , 

w ri te_i o_port  entry  'bit  (8),  bit  (8)  ), 
read_io_port  entry  (bit  (8),  bit  (8)  )5 

/*  end  declarations  */ 

srf  =  '0  ' b4  * 

call  write  io  port.  (command^re^ister  .command '■  J 
do  while  fTsrf  S.  '01'b4l  =  '00'b4)J 

call  read_  io_t>or  t  (  interrupts  tatus  ree  ,  srf); 
end?  do  v/hil*3  #/ 

call  read_io  port  (  co^ma  nd  _?  t,  a  tns_  ree  i  s  ter  ,  res  value 

if  re#;  value  >  '01 'b4)  then 

do? 

/*  not  (SUCCESS  or  SUCCFSS  with  Retries)  */ 

put  Skip  edit  ( '***  ETHERNET  Board  Failure  ***') 

( c ol ( 20 )  ,a  ) ; 

/*  when  this  occurs,  run  the  diagnostic 
routine  T,3P10/Cx,  where  r  is  the 
current  cluster  number  */ 

s  top? 

end /*  ltd  */ 


end  perform  coward; 


/  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  *!«>;«  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft ft  ft  ft  ft  if.  if ft  if ft  if  if  if  if  if  if  ft  if  if ft  s;s  ft  ft  if  ft 


transmit  packet.:  procedure  external; 


DECLARE 

srf  bit  (8)  , 
r ?e_ val  bit  (8  )  , 
write  io  port  entry  'bit  (8) 
r°ad  _i  o_port.  entry  (bit  (8) 
enable_  cpn_ interrupts 
iisablec du  interrupts 
write  bar  entry  ( b i t ( 1 6 > ) ; 


,  bit  (8)  ), 
.  bit  (8)  ). 
entry, 
entry  , 


/*  beein  */ 


srf  =  '0'bt; 

rail  write_bar  (  rmi  t_pt.  r_  va  1  up  ) » 

rail  wri te  i o  port ( hi eh_byte_rour  t_reg  ,  '0f  'b4 ) ; 

rail  vrite_i('_urrt.  {low_byte_/'ount_re/?,  '3c  '  b4 )  ; 

copy_  Ip  register  =  transmit^  dma_d  one! 

rail  wrIte_io_port(intPrrupt_P'”ab1e_re£ist9r, 

transmit._dma_done) ; 
call  enable  r pu_inter rupts ; 

do  while  <  rocy_i e_reei ster  =  t ransmi t_dma_ i one  ) ; 
end.*  /*  loop  until  the  interrupt  handler 
takes  rare  of  the  ThB  interrupt  - 
it  sets  cooy_ie_regi st? r  =  -.{BA  */ 
call  per f orm_commar d  f  1  oai_and_  send  ) » 

end  transmi t_ packet ; 

/  if  *?*f *  i,t  sp  ##  #  #  #  3JS5!5  #  #  #  #  #  #  £  »!e  X*  #  sit#  #  ##  #  #####  #  #  *s  >Jc  if  #  s;c  s;;:;:  if  sjs##  ff  s^  if.  / 


uL_i nter rupt_handler :  procedure  external; 


/*  This  routine  is  called  from  the  low  level 
8086  assembly  language  interrupt  routine  */ 

DYCLARY 

wri te_i o_port  entry  (bit  («)  ,  bit  (8)  ), 
read_io_port  entry  (bit  (P)  ,  bit  '8)  ), 
enable  rpu_ interrupts  entry, 

disable  cpu_interrupts  entry, 

write  bar  pntry  (bitfl6)}J 

/*  bemir  */ 

rail  v'rite_io_oortf  ir'terrupt_9nable_reirister  . 

(1isabla_ni3010_interrupts  )  > 

if  (copy  ie  register  =  rerei v°_bl crk_ a va i la ble  ) 
then  do ; 

call  write  bar  ( rcvptr value) ; 

rail  wri te  _io_ port (high  byte _rount,_reg,  '05'b4^ ; 

call  write_io^_portfl  ow_by t  e_count_reg ,  'f  2 '  t4  ) ; 

/*  iritiate  r^reive  */ 

copy_ie_register  =  rerei ve  dma _d one  ; 

call  write_ i  o  port ( i n terrupt _e nabl®  resistor. 


r°re  i  vp  dma  done); 


end;  /*  do  */ 
else 

if  (todv  ie  register  -  recei vedma  dene)  then 
i  o; 

rail  pmcess_packet ; 

ropyie  register  =  recei  ve_  bl  ock_a  va i  la  Me ; 
call  write_io_port(interrupt_enablp_re£ister, 

roroive_block_availaMe)  ; 

end:  /*  if  then  do  V 

else 

if  ( r opyiereei s ter  -  transmit  dmadooe) 
then  do; 

r r py_ ie_ regi s t er  =  receive  blockavailable ; 
/*  MT30I0  interrupts  disabled  on  entry  */ 
end;  /*  if  then  do  */ 

end  HL_ir  ter  rupt,_hand  ler  ; 


/  3*:  5,V  #  #  3jc  sjc  #  #  *  3 


&  #  *  #  Sjt  5?C  >1?  X'  >r  ❖  *r  #  #  #  Sr  &  •*'  #  ; 


.  »,»  *, 


:  *  ajt ; 


process  packet. :  procedure; 

DFCLARF 

loral_evc_ value  bit  (16^, 
data_pt. r  pointer, 

remote  evc_value  bit  (16)  based  (data_ptr); 

if  ( receive  data  block .data( 1 )  evc_type)  then 
d  0 ; 

data_ptr  =  ad  dr (receive  da ta_bl ock.data )) ; 

/*  remote  evc  value  r’ov  has  a  value  */ 

local_evc  value  =  read  (  recei  ve_dat.a_bl ock  .  d a  ta  '  2  )  )  i 

do  while  (local  evr_value  <  re,"ote_evc_va  1  ue  ) ; 

call  advance  ( recei ve_ d a ta_bl oc k  .da ta 1 2  )  ) ; 
local  evc_valup  -  add2bitl6 ( lcca  l_evc  value, 

'fT(H'b4); 


end ; 

call  disable_cpu_interrupts* 

/*  this  must  be  done  dup  to  setting  of 
enu  interrupts  by  calls  to  ’dCORTFX 's 
VP$SCPFDUL"R  via  ADVANCF  */ 


P01 


end;  /*  i M  *' 

/*  only  type  packet  in  this  limited  implex.  *-/ 
end  process  packet; 

/  $  V  *  #  #  V  #  $  f-  *  *  #  *  *  *  #  #  e  *  «  *  *  *  *  *  *  £  *  *  *  #  #  *  *  5|t  £ sjt  # £  .-;:  :|:  :*  *  •-?  y  *  j;:  %  # 

Dro^ram^roupaddresse*.:  procedure* 


D^CLAT F 


1  group  addr(40)  based  1  p.ro up  ptr), 

2  vr  enont)__f  i  eld  _a 
"Mt  (P). 

2  rc_proup  field^b 
bit  (P), 

2  me  groun^field  c 
bit  (8), 

2  mc_grouo  fields 
bit  (8), 

2  mr_gronp_f ield_e 
bit  (8), 

2  mc_group  field_f 
bit  (8); 


DECLARE 

(group  n^r.p)  pointer, 

( fields,  f ield_f )  bit  (8), 
bit  8  croups  bit  (8)  baspd  (p), 

( i ,num_ groups .groups,  times. 6)  fixed  bin  (7); 

unspec ' group  Dtr )  =  mi  t  _pt  r_va  1  ue; 
open  file  (address)  str°an  input; 
get  file  (address)  list  ( num^roups  )  5 
do  i  -  1  to  num_grouDs; 

group  add  r  ( i )  .mc_?roupwfi  eld  _a  =  '9'3'b4; 
gronp  addr  ( i )  .rrc_grouB~field_b  -  '(*0'b4; 
group_ add r < i ) .mc_eroup_f i eld _c  =  '<50't4; 
group  addr( i ) .mc_*roup_fi eld_d  =  '00'b4J 
get  file  (address)  list  1 f i°ri_e , f ield_f  ) ; 
grou p  add r ( i ) .mc_gr oup_f i eld _p  =  field_e? 
group  add r < i ) .mc_?rorp_f1 el d _f  =  field  f; 

end?  /*  do  i  */ 

call  disable  rpuirtprrupts; 


20? 


00 't\) ; 


rail  writehe**  (  xni  t._T>  t  r_  val  ye  ) ; 
call  wri  te_i  nort  f  hi  £h_by  te_crsun  t_re^  , 
groups  tin»s  6  -  0  *  nun  groups? 
p  =  add  r  (  er'c:wt>_  t i n? s_  6l ; 
call  write  i  o _  po r  t  ( lo w_by t  e_coun t _re<?  ,  bit  S  ?rouns 
ropy_ip_r*»«ist.or  -  t.ransmi  t  drra_d  on^ ; 
call  W’’*ite_in_Dort(ipterrun"t_pnaMc,_re*;ister, 

transni  t  _dma  _d  one  )  ; 
call  enable  cpu^irterru'Dts* 

do  while  <  coD.y_ie_re?ister  =  trarsmi  t_dna_done  )  I 
end;  /'■■■  loop  until  the  interrupt  handier 
takes  care  of  the  TDD  interrupt  - 
it  sets  COPY  TF_PFG  =  FM  *' 


call  De r f orm_c ommand ( 1 oad _^roun_ad d resses ) ; 
end  program  eroup^add r es se s ; 


/ 


*  if  !|« -;t  *  5;:  if  =1=  *  if  «  if  if  if  if  st:  if  sis  * if  if  *  if  if  if  if  if  if  if  if  *  *  if  if  > 


««.  O.  « 


end;  /*  systen  device  handler  and  packet  processor  * 


onpration  =  awai  t_packet  * 
srf  -  n ! 

call  disahlpi~t)!i  i  r.  t.  e  r  r  u  v  t  s  ' 
copy_ip_rpp,istP"  =  reopive_block_avaiiatle; 
call  write  in  port  (  i  r  tr*  rrupt.  _^ra  bl  e_reKi  s  t or  , 

receivpjil  ock_avai  lablp  ) ; 
call  enable. cuu_intprrupts; 

call  wri  t°  Jo  port  (  cowman  d_r  e^i  s  t  er  ,  oommar  d  '  * 

do  while  (mod(srf,2)  =  C* )  ; 

call  read_io_port  ' i r t err  not _s t a tu s _rea ,  brf )I 
end  ;  /#  do  while  * / 

/*  status  is  available,  sc  read  it.  */ 

call  r?ad_io  port  ' command  status  register,  status  code) 
put  edit  (  command_st.atus_codes  (  sta  tus_oode  1 )  i  c  ol  (  )  ,  n  ) 

call  traosmit^packet  ■'  t  ransmi  t_da  ta_bl  ock  ) ; 

do  while  (operation  =  await_packet )  ; 

/*  haril°r  will  change  */ 
e  nd ; 


end  perform_loophacV-; 


/:(cs;:5;«5!«  ###### sic*# sic*****  sis**** if  #*o;s  ^ 


transmit  packet:  orocedure  (packet.)  external; 


DECUPF 

srf  fixed  tin  (? ), 

rP|C  value  fixed  bin  '7), 

write  io  po”t,  entry  (fixed  bin  (7),  fixed  bin  (7)), 
read_io_port  entry  'fixed  bin  (7),  fixed  bin  >7)), 
°nable_cpa_intprrupts  entry , 

disablecT)u_interr;ipts  entry, 

writebar  entry  (pointer), 


1  packet, 

2  dec.t  i  na  t  i  on_addre  ss_a 

/*  - >*/  fixed  bin  (7), 

/*  assigned  !  */  2  destination  addrpssl 


PFCLARF 

comma’"'!  fixed  bin  (7), 
rP«  value  fixed  bir  <r?), 
srf  fixe!  bin  (7), 

wri^e  io  prrt  entry  ^fixed  bin  (7).  fixed,  bin  (7)), 
read_io_t>ort  entry  'fixed  bin  (7),  fixed  bin  !?)), 
commani_status_codes  entry  (fixed  tin  (7)) 

returns  (char(.dP’)  varying); 


/*•  end  declarations  */ 


srf  -  ?; 

call  write_io  port  ( command_ree i s tp r , c ommand ^ ; 
do  while  (m^d'(sr^,2)  =  P1); 

call  r^ad  ic_port  ( ir terrupt_s ta tus_re«,  srf); 
end;  /*  do  while  */ 

call  read_in_port  (  command_s  ta  t»is_re^i  ster  ,  re«’_value 
if  (command  ~=  reset)  then 
d  o ; 

if  (command  “=  o nboa rd _d i a^n os t ic  )  then 

P'lt  edit  (command  status_c  odes  ( r“/*  value)) 
’(  col  ( ) ,  a  ) ; 

else 


put  edit  (diagnostic_codes ( re^_value  ) ) 
(col (50)  ,a  )  J 

end; 


end  perf orm_command ; 


/  si:**!#*##*#  #$ #$###«# s|:  sf.  s!e  #  *! #>jt  if  / 

Derform  looobaclc:  procedure  (command); 

DFCLAHF 


writejo  port  entry  'fixed 
reai_io_nort  entry  ''fixed 
initial ize_epu_int errupts 
e na ble pu_in ter r upts 
disable_cpu_interrupts 
write_bar  entry  (pointer). 


command _status_codes  entry  (fixed  bin  (7)' 

returns  (char(.tO)  varying), 
command  fixed  bin  (7), 
status_code  fixed  bin  (7), 
ie_rep  value  fixed  bin  (7), 
srf  fixed  bin 

/*  end  declare  */ 


bin  (7),  fixed  bir.  i  7 )  )  , 
bin  ( 7 ) ,  fixed  t  in  . 7  )  )  , 
entry, 
entry, 
entry. 


21P 


A  ■  A. 


/*  °nd  pain  body  #/ 


f  a;:***#  ifvif  #  #  ❖  £  #si:5i!S[:  &-?*?  ##$## if  s; 


'■•/ 


/*  pron»f)urcs  */ 
fill  data  block:  p^oredurp; 


DVCLA  .iE 


i  fixed  Mr  (15)  static  initial  (1), 
end_of_file  bit  '1)  static  init  (  '  1. 1 '  h  )  ; 

/*  begin  */ 
open  file  (test3010); 
on  endfile  (test 30 10) 
beein  i 

end_of  _f  il  e  -  'l'b; 

end  J 

do  while  (  end_of_file  =  0); 

get  f  i  le  test3Cil0  )pdi  t  ( transmi  t  data  block. data  bytes(i)) 

(ad)); 

i  =  i  +  1 5 
end;  /*  do  while  */ 


end!  /*  fill  data_block  */ 

/  Sjt  $  *  #  s|5  s’,:  *c  8^  #  #  s|i  #  sfr  if  if  s!« -f  '-If#  if  if  s|:  if  if  if  s’.!  :;t  #  if  if  if  if  if  if  if  if  sis  if  if  if if  if  if  s',:  s|c  f 


initialize  pic:  procedure; 


DECLARE 

write  io  port  entry  'fixed  bin  (7), fixed  bin(7))J 
call  wr ite_io_port  1 icwl _port_address ,  icwl ) « 
call  wr i te_ i o_po rt  f icw2 _port_address , icw2  ) ; 
call  wr i te  1 o_ port  ( icw4_oor t_addre ss ,  icw4  )  ? 
call  wr i te_io_po rt  ' ocv_port_add ress , ocwl ) J 

end  initialize_pic; 


p°rf orm_command  :  procedure  (compand); 


21f 


Mm 


•-*.  -•  *-»- 


*  .'  •  .A 


/*  with  a  DS  register  value  of  3P33h  in  the  link 
command.  this  will  place  packets  in  extended 
T'erory  'therefore  PM*  operation  can  take  place  */ 
t  ransmi  r.  d a ta_bl  "ck  .d  esti na  1 1  on_a id ress  a  =  2? 
transmit  data_blcck.de?tinatiOTi_addiPSS_b  -  75 
transmit  data  hi  ock  .dps  t  i  na  t,  i  or_add  ress_c  -  i; 
transmit  data”  block. destination~address_i  = 
if  (cluster  =  clustprl)  then 
do; 

t  ransmi  t  da  ta _bl  ock  .des t  ina t  icn_address_e  =  3; 
t ransmi t  d ata_block . des ti na ti on~add ress_f  =  -22? 

/*  corresponds  to  33-F4  */ 

end; 

else 

do!  /*  it's  clustpr  2  */ 

transmi t_data  block. destination_address_e  =  4; 
t ransmi t’data  bl ock .des ti oat ion~addres$_ f  -  13; 

/*  corresponds  to  34-3 t  */ 

end ; 

t ransmi t _d a ta  block . type_field_a  =  3; 
t  ransmit_dat.a_block  .t  yne_field_b  =  3; 
do  i  =  1  to  1533 ; 

transmit_data_blork.data_hytes ( i  )  =  '  '; 

end ; 

call  read  io,  port  ( command _s tatus _ register , reg_va 1 uc  ) ; 

call  fi ll~data_bloek; 

call  initializepic; 

call  initialize  CDU_interrupts; 

put  skip  edit  ('Run  Onboard  Diagnostic')  (col'5),a); 

call  perf o r^^command  (onbnard_diagnostic  ) » 

nut  skip  edit  (''Perform  Module  Interface  Loopback') 

( col ( 5) , a  ) ; 

call  p°rfcrm_ loopback  (module  interface  loopback)? 
do  i  -  1  to  1533? 

receive_data  block .data_bytes  (i)  -  '  '? 
end;  /*  do  1  *7 

nut  skip  edit.  ('Perform  Internal  Loopback')  (  col  '  5 )  ,a  ) ; 
call  perform  l  oopback  ( in  terra  1_1  oopback  )  ; 
do  i  =  1  to  1533; 

recei ve_data_block .data_bytes  (i)  -  '  '; 
end;  '*  do  i  * / 

out  skip  edit  ('Perform  External  Loopback')  (col(5),a); 
call  per form_ loopback  ( go_on 1 ir e ) ;  /*  external  loopback  */ 
put  skip  (2); 

put  edit  ((border  (i)  do  i  =  1  to  80))  ^a); 
put  skip  ( 2 ) ; 

call  ppr form_conmand ( reset ) ; 


»»j  f  me  mg  »m  ■»  ■  hi  hhv"J"i»i  » '.  ■  v ■ 


will  be  (49  her  +  5 )  *  4  = 

114  hex  */ 

i cwi  by  '0f '  b4 , 

/*  automatic  end  of  interrupt 
ard  buffered  mode/master  */ 

ocwl  by  '9f'b4, 

/*  unmask  interrupt  5  (bit  5)  and 
interrupt  6.  mask  all  others  */ 

/#  end  8259a  codes  *  / 


clusterl 

by 

1 

c lus  ter2 

by 

2 

packet  received 

by 

1 

awai t  packet 

by 

C, 

/#  include  constants  snecific  to  the  MI3010 
board  */ 


^include  'ni3C  ~.dcl'J 


/###*# ## af:  >je ## a)t #  fcjfc )(i s;t  Jfc* 5Jt af:  >y*s;c5;ts;:#£>;t  5*#  / 


/*•  Main  Tody  */ 


cluster  -  cluster2I 

/*  conditional  to  set  ut>  owr  address  for  loopbacks  */ 
put  list  ( '~z')J  f*  clear  screen  */ 
put  skip; 

put  edit  11  border  (i)  do  i  =  1  to  80))  (a); 
put  skip  (2)  edit  (  'NI3010  Diagnostic  Routine') 

(  co  1  (  2P )  ,a  )  5 

put  skip  1 

put  skip  edit  ('Command  Issued 'Result ' )  (col'.  5),  a, 
cnl(50.a); 

put  edit  ('*<--< «*#***♦**#**'.'#***#*')  (col(5).a, 
c  o  1  •'  5fH  ,  a  ) » 

*>ut  skip  (2)1 

unsppdtrans  blkptr)  =  '8000'b45 
unspedrec  blk  ptr)  =  '8800'h4! 
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co  py_command  _st  a  t  os_regi  s  t?  r  fixed  bin  (7), 

(  i  .  .1  ,k )  fixed  bin  ( 1 c  )  , 
reg  value  fix^d  bin  '7), 
operation  fixed  bin  (7), 
cluster  fixed  bin  (7), 

border  (80)  char  ■  1 )  static  initial  *.80)'-'), 
('trans_bl!<_Ptr,re''_blk_ptr)  pointer. 


/*  Modules  external  to  this  module  */ 

wr i te_ i o_por t  entry  (fixed  bin  (7), fixed  bin  (7)) 
read _io_port  entry  (fixed  bin  (7). fixed  bin  <7)j 
initialize_cpu_interrupts  entry, 

enable^  cpu_i  r  t.e  r  roots  entry, 

d i sa bl e_cpu_i n t er r u pts  entry, 

write_bar  entry  (pointer)» 

/*  end  module  listing  */ 


^replace 

/*  codes  specific  to  the  Intel  RPb9a  Programmable 
Interrupt  Controller  (PIC)  #/ 


icwlport  address 

by 

'c? 

'  b4 , 

/* 

note 

that 

*/ 

iow2_port_  address 

by 

'  c2 

'  b4  , 

/* 

icw2 

,  icw4 

,*/ 

icw4_ port ^address 

by 

'c2 

't)4, 

/* 

and 

ocw 

*/ 

ocw_port_address 

by 

'c,2 

'b4, 

/* 

use 

same 

*/ 

/* 

port 

add  r 

*r  / 

/#  note:  lew  ==N  initialization 

control 

word 


ocw  ==b  operational 
comma  nd 

word  */ 


icwl  by  '17>'b4, 

/*  single  PIC  configuration,  edge 
triggered  input  */ 

icw2  by  '40  'b4, 

/*  most  significant  bits  of  veotorine 

byte?  for  an  interrupt  8, 
the  effective  addr°ss  will  be 
(low?  +  interrupt  <0  *  4  which 


1 


transmi * _da ta_ block  based  'trans_blx_ptr)  , 


2 

desti nation 

_add  res  s  _ 

a 

/* 

- s#  / 

fixed 

bin  •  7 ) , 

/* 

assigned 

!  */ 

2 

dest i ra ti on 

_add  ress_ 

b 

/* 

by 

- >>*/ 

fixed 

bin  (7)  , 

/* 

XFROX 

!  #  / 

2 

destination 

add  ress 

0 

/* 

- v*/ 

fixed 

bin  ( 7 ) ,  ‘ 

2 

destination 

a  id  ress 

d 

/* 

- >*/ 

fixed 

bin  (7). 

/* 

as  signed 

!  */ 

2 

dest i na  ti on 

add  ress 

3 

/* 

by 

- ><•/ 

f  iTed 

bin  '7)," 

/* 

I NTFR  L  *  M 

!  #/ 

2 

destination 

address 

f 

fixed  bin  (7) , 

2  tvpe_field_a 

fixed  bin  (7) , 

2  type_field_b 

fixed  bin  (7) , 

2  data_bytes  (1502) 
rhar  ( 1 ) , 

1  r°rei ve_data_blork  based  ( rec. blkptr ) , 


2 

f  ramp_statiis 

bit. 5)  , 

2 

ruI 1 _bytP 

f  ix°d 

bin 

(7), 

2 

f rame_leneth.  lsb 

fixed 

bin 

(7)  . 

2 

f ra mo  length _msb 

fixed 

bi  n 

(7), 
(7)  . 

2 

destinati on_  add  ress 

a 

f  i  xei 

bi  n 

2 

destination  a direes 

”  b 

fixed 

bin 

17)  , 

2 

destination, address 

c 

f  i  xed 

bi  n 

(7)  . 

2 

destination_address 

> 

fixed 

bi  r 

<7)  , 

2 

destination  add  ress 

p 

fixed 

bin 

7), 

2 

dest.inationaddress 

f 

fixed 

bi  r. 

(  7  )  , 

2 

sourre_add  ress_a 

f  i  xed 

bin 

<rf). 

2 

sourne_add  ress_b 

fixed 

bin 

'7), 

2 

source_address_c 

fixed 

bin 

>7)  , 

2 

sourop_add  ress. d 

fixed 

bi  n 

(7)  , 

2 

source_address_e 

fix  el 

bi  r 

1  7  )  . 

2 

sou  rce  address  f 

f  i  xed 

ti  n 

;  7 ) , 

2 

type_field_a 

fixed 

ti  n 

.7)  , 

2 

type_f ield  _b 

fixed 

bin 

.  7  )  , 

2 

data_bytes  (15?0) 

char 

(1  )  . 

2 

ore  msb 

fixed 

bi  n 

(7)  , 

2 

c rc  u Doer_m idd 1 p_  by t e 

fixed 

bin 

<7  )  , 

2 

crc  lower  middle  byte 

fixed 

bi  r. 

(7), 

2 

crc  ..lsb 

fixed 

bi  r, 

(7)  , 

test,3010  file, 

roD.y  ie  register  fixed  bin  (7), 


X*-  #  X'  X:  s\:  X;  :|£  :|t  X-  X:  ;Jc  3;:  3*,:  s'.r  X:  X;  sfc  X-  X>  ?*s  Y,<  X«  y<  Y,<  y<  3;?  X*  X<  X;  ;|c  s;c  3;:  ys  y,*  3;:  3,« 3',;  3;?  v  XJ  X*  5|:  Xs  X; :;:  s|;  a;-. 

X*  afic  *  #  3J:  X£  >r  X<  X*  *  a*-  ❖  3;:  s£  :|t  yts  X*  sj?  X:  *  X*'  *X<  *  *  $  *:  $  3;:  *  # 3^  a$e  3;:  X*  #  #  X*  *  *  *  #  *  X?  X<  *  X*  5?  X<  *  X-  Xs #  $  3;;  s(:  *c  ^ 

"•*  T3010/C1  .Id15  LINK 36  input  option  file  *** 

Sc  Sc  sc  Sc  S:  Sc  Sc  Sc  SC  Sc  S:  S'  Sc  Sc  Sc  Sc  S=  S'  S'  S'  S'  S'  S'  S‘  Sc  S'  Sc  S'  S;  S'  S'  S«  S'  S'  S'  S'  S'  S'  S'  S'  S'  S  -  S'  S'  S«  S'  S f  S'  S'  Sc  S,c  S'  S'  S'  S'  S'  Sc  S'  S'  Sc 

t3010/cl= 

board  ts  t  [code  fab  [439]  ]  ,d  a  ta [a  b  f  8n0j  ,m  [0]  ,  ad  [P2]  ]  .ma  p  fa  1 1  ]  J  , 
asmrout 

i\i  3;?  X*  3 \t  Xs X:  3;;  #  >;j  X?  X<  X:  Xf  Xt  sjt  >Jt  :Jc  sj?  :|t  3|?  sj: #  ^  sj:  :J<  tfc  :}r jj:  Xt  s[c  X'  >J: X*  #  ajc  X?  >|c X*  X?  s}c  # X?  Xc  #  X;  X: $ #  X; 

#  #  #  3jt  #  X5  X«  X;  X*  a;:  yc  X*  #  Xt  X>  X*  X;  Xc  xc  yc  ye  *j<  Xs  #  x<  X<  X'  Xc  >;«  X*  X-  #  X'  X*  X5  Xc  >;c  :Jc  Xc  X< Xc  X-  X<  Xc  ❖  X a,-  ajc  X'  X'  a.’?  X«  X«  X<  a;:  ;;c  y: 

**  T3010/C2.INP  LINKP6  input,  option  file 

Sc  S'  :‘c  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  Sl  S' S' S' S' S'  S'ScS:  S' S'  S'  S' S' S' S;  S' S' S' S' S'  S'S'c^  S' S'  -f  S' S' S' S' S' S'  S' S' S'  S'  S'  S'  S  -S<S‘  S'  S'  S’  S'  ■'■ 

t301 0/ r 2= 

boardtst[coderabr439]]  ,datarabff>00),rn|0]  .ad  [82]  I  ,  rap  f  a  1  i  1 J  , 
asmrout 

S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  Sc  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S=  S'  S'  S'  ■'(  S'  S'  S'  S'  S' 
S' S' S' S' S' S' V  S' S' S' S' S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  'Jc  S' '!« S'  S'  M  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S' S' 

S'*S-  TEST3010.DAT  file 

S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'*!!'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  5^  S'  v  S'  *'f  -f  S'  S'  S'  S'  S'  S'  S'  S'  Sc  S' 

This  is  a  highly  reliablp  packet  switching  implementation! 

S'  S'  S'  S'  S'  S"Jc  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S' S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  *!'  X'  X*  X<  aj<  X< 's  V 
X'  X-X=  a|; X: X; >!' X;  :l:  X; ;  ?’•  a.’c  # X^ Xr a^  X^ a.’'  ■]' x't  X^J?  X< X' X; X1*  X'  ajc X<  >1' Xf  a;c yr  3;:  X'  X' X'  a|r aje  .Jc  X' XJ  X'  X' X:  X' Xc X'  Xc  X  X^  X  !' 

***  N 13010  DIAAT\'OSTir  ROUTINE 

Sc  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S<  S'  S'  5<c  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S-  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S'  S' 


board  ts  t : 


procedure  options  (main)? 


/*  Date:  14  FEP  1984 

Programmer:  David  J.  Brevpr 

Module  Function:  This  module,  and  associated 

submodules,  are  designed  t°  fully  diagnos--  the 
NI3010  Multibus  to  Ethernet.  Commnnn  icati  ons 
Controller.  If  at  any  time,  during  the  level  0  omen t 
of  softwar0  or  hardwar0  by  a  user /implemen t or  of 
FCCB  software  a  fault  is  suspected,  this 

comprehensive  diagnostic  routine  can  be  executed 
urder  CP/M  -  86  by  invoking  the  command  module 
(i.e.,  transient  command)  'T3010^Cx',  where  x 
represents  the  cluster  location. 

V 

DFCIAP^ 
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In  the  evert  of  an  Ethernet  board  failure  indication  by 
the  NI3010  Driver,  the  full  range  of  !\!I301'd  operations  can 
be  tested  with  this  routine.  Any  charges  to  the  port 
addresses  of  the  N I3JU0  will  have  to  be  reflected  in  the 
^I3G’'lf’.DCL  file  contained  in  Appendix  K.  This  code  will  also 
have  to  be  recompiled  and  relinked. 

This  routine  is  invoked  with  the  CP/M-96  transient, 
command:  T301(VCx,  where  x  is  the  cluster  to  be  tested.  ?or 

example,  T3P1C/C1  tests  the  NI301C*  at  Cluster  1.  Tnis 

diagnostic  routine  uses  the  factory  default  Ethernet 
physical  address,  so  the  boards  should  not  be  swapped 

between  clusters  without  taking  note  of  its  physical 
address.  The  NI301P!  Driver  does  not  have  this  restriction. 
The  file  AS MROUT . A 96  is  linked  with  the  module  to  allow 
access  to  hardware  port  addresses  ard  to  allow  a  low  level 
assembly  language  interrupt  handler  to  call  a  PI  / 1  —  »i:3 

interruDt  handler.  The  T.INK86  input  option  files  ar~  also 


’  restore  registers 

po  o  °s 
rot)  is 

Don  tip 
pop  di 
pon  si 
poo  dx 
pop  cx 
Pop  bx 
Pod  ax 
sti 
i  ret 


r 


enable  __cpu_irterr  up  ts 


Module  Interface  Soecification : 

Taller:  Ether tes t ( PL/I )  Procedure 

Parameters:  MOME 

sti 

ret 


disable_cpu_interrupts: 

J  Module  Interface  Specification : 

;  Caller:  Ether  test ( PI/I  )  Procedure 

;  Parameters:  none 

rli 

ret 


inter rupt_h an dler: 


J  Ipf  CS,  and  flaes  are  already  on  stack 
;  save  all  other  registers 

push  ax 
push  bx 
push  cx 
push  dx 
push  si 
push  di 
push  bp 
push  ds 
push  es 

call  hl_int,errupt_handler  »  hi#?h  level  source 

;  routine 


rro 1  ■: 


i 


iiii.  l.i  uwi 


add_l : 
no  add  : 


mov 

temo 

es,  es 

mov 

d  x , 

es 

mov 

si , 

[bx] 

mov 

ax , 

[si] 

mov 

cl , 

12 

shr 

d  x , 

cl 

mov 

temD 

e  byte 

f 

mov 

dx , 

temp_es 

mov 

cl , 

4 

shl 

dx , 

cl 

add 

ax , 

dx 

.)nc 

no  add 

i  nc 

tenro 

e  by  t  e 

out 

1  bar  port. 

al 

mov 

al. 

ah 

out 

h  bar  port, 

al 

mov 

al, 

temp_e_ 

by  t 

out 

e_bar_por t , 

al 

pop  si!  pop  dx !  pop  es!  poo  cx ! 
ret 


pop  a:c!  pop  bx 


initialize _cpu_interrupts: 


?  Module  Interface  Specification: 

*  Caller:  Fthertest (PL/I )  Procedure 

;  Parameters:  NONP 

initmodule  cseg  common 
ore  114h 

int5_offset  rw  1 
in  t5_see:men  t  rw  1 

csea 
oush  bx 
push  ax 

mov  bx,  offset  int°rrupt _hard ler 

mov  ax, 

push  ds 

mov  ds ,  ax 

mov  ds  :intf?_off  set ,  bx 

mov  bx ,  cs 

mov  ds  :int5_ segment ,  bx 

pop  ds 

pop  ax 

pop  bx 

sti 
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.  y\ 


real  io_  port  * 


Parameter  Passirg  S p°ri f ication 

entry  exit 

parameter  1  <port  address>  <unrhangeri  > 

parameter  2  <near i ngle s s>  <register  value> 

c  seg 

push  bx!  push  si!  push  dr!  push  ex 

mov  si,  rbxl 

mov  al,  [si"* 

mnv  port^address ,  al 

mov  si,  2fbxl 

mov  dl,  port_address 

mov  dh,  00h 

in  al,  dx 

mov  fsil  ,  al 

pop  ax!  pop  dx!  pop  si!  pop  bx! 
ret, 


J  3{»  »i»  v  »o  *i«  »i*  *|{  5,C  »,*  if  s|:  ;1:  it  it  if  if  #  if  if  sjs  if  if  sjc  £  if  if  £  #  if  >|t  jJ*  },»  *,*  i|»  »)»  'Jc  !,{  3  ,C  »,«  l’,C  »]•  /[•  #,»  *!*  *•  At  V  v  *i* 


write  bar: 


Parameter  Passing  Specification 

parameter  1  (and  only):  the  address  of  the  data  blocK  to  b 

transmitted  or  received. 


dseg 


e  bar  oort 

eou 

0b9h 

h  ba  r’oort 

eau 

0bah 

1 _bar_  port 

ea  u 

0bbh 

temoe  byte 

r  b 

1 

temp_  es 

rw 

1 

cseg 

;  This  module  computes  a  24  bit  address  from  a  32  bit 
I  address  -  actually  it's  a  combination  of  the  ES  register 
;  and  the  IP  passed  via  a  parameter  list. 

Dush  bx!  push  ax!  push  cxl  push  esl  push  dx!  push  si 


mov  dx,  0900 h 


;  shared  memory  segment 


A >jt  *  A  *  *  9|e  A  A  A  A  A  s;e  A  A  A  «  A  A  #  A  A  A  *  A  A  A  *  A «  £  A  A  >!c  *  A  A  A  A  A  A  A  A A A  A  A  A  >;  A  :J s  y-  A  A  y,c  y^  A A  A 
! ;s  A  AA  AAA  *  aA  A  AA AAAAAAAAA AA  A  A  A  A  A  A  A  A  A  A  y,s  A  A  V  A  A  A  A  A  A  A  A A  ■  AAA  AAA  A  A  A  A 

AAA  ASMoOUT.  «.fi6  fil*  ** 

^CJjC  3r  V  *i*  V  ^4*  AAA  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A A A  A  A  A A  A  A  A A  A A  A  A  A  A  A  A  A  A A  A A A A  A  A  A A 

pxtrn  hl_inte rrupt_handler  :  far 

public  wri  te_  i por t 
public  read_io_port 
public  write_bar 

public  initialize_cpu_int,errupts 
public  enable  cpu_irterr’iots 
public  disable  cpu_ir>ter  rupts 

•  *  a  A  A  A  £  A  5?  a  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A 


write  10  oort: 


*  Parameter  Passlns  Specification: 


entry 


exit 


5  parameter  1 

* 

;  parameter  ?. 


<oort  address> 


<"  uncbanf?ei> 


<valne  to  be  output ted'>  <uncbanped' 


d  ses 

port_address  rb  1 


cse^ 


msb  bx!  push  si?  push  dr!  push  ax 

mov  si,  fbx ] 

mcv  a  1 ,  fs  il 

mov  port  address,  al 

mov  si,  ?  ft x] 

mov  al. ,  fsil 

mov  dl,  portaddress 

mov  dh,  00h 

out  dx,  al 

pop  ax!  pop  dx !  pop  si!  pop  bx 
ret 


•  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  X-  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  V  A  A  A  A  A 
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i » l  ■»  ■  >  ■  i1  ■;  v  »  y  » i1 7-  « 1 »>  ■  1  ■ 


/* 

by 

- N*/ 

fixed  bin  '  7  ) , 

/* 

XFROX 

!  */ 

2 

destination _address_ 

r 

/* 

- \#  / 

fixed  bin  (7), 

2 

destination_address_ 

cl 

/* 

- >*/ 

fixed  bin  (7 ) , 

/* 

assigned 

!  */ 

2 

des  t.  in.  a  t  i  on_add  ress_ 

p 

/* 

by 

- >*/ 

fixed  bin  (7), 

/* 

INTER LAN 

!  */ 

2 

destination  address 

f 

/* 

- N*  / 

fixed  bin  (7), 

2  type_field  a 

fixe?  'bin  1 7  ) , 

2  typp‘_^'i  eld  _b 

fixed  bin  (7) , 

2  data_bytes  (1500)  char  1); 

/*  begin  */ 
srf  =  0; 

rail  write_io_  port'  in  tprrunt_enable_.  register. 

dlsaM°_ni3P10_interrupts)  ? 
rail  write_baT’  ( addr ( packet )) ; 

call  wri  te  _io  port  (  high_by  te^oun  t,_reg  ,  5);  /*  1508  */ 

/*  bytes*/ 

call  wri*e  io_port(  lo w_byte_r our t _reg ,  -28); 
ropy  ie_register  =  tran«-ni  t_dma_d  one  ) 
cail  enable_rpu_inter rupts? 

call  wri  te  _  Io_port  (  in  terrupt._enable_reei  s  ter  , 

transmi t_dma_d  one  ) ; 

do  while  (  ropy_ie_rP2ister  =  transmit, _dma_done  ) » 
end;  /*  lcoo  until  the  interrupt  handler 
takes  care  of  the  TUI1  interrupt  - 
it.  sets  IF_PFG  to  4  */ 

call  wri te_io_port  ( command_regis t pr ,  load_a  nd  _se  nd  ) ; 
do  while  ( mod ( sr f ,2  )  =  0); 

call  read  io_nort  (interrupt_st.atus.ree.  srf)J 
end?  /*  do  while  */ 

call  read_io_port  ( comma r d _s ta tus _reg i s ter ,  res. value'; 


°nd  transmi t_ packet J 


HL_interrupt_hardler :  procedure  external; 


/#  This  routine  is  called  from  the  low  level^ 
°0P5  assembly  language  interrupt  routin'1  */ 

DFCLAFF 
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write  in  port  entry  'fired  tin  '■?),  fixed  tin  '?)), 

r»ai_io  port  entry  (fixed  Mn  '  7) ,  fixed  bin  (?)), 

enable  rpi\i_  i n ♦'errupt s  entry, 

d  i  sab  le_cpu_in  term  pt  s  entry, 

writ.e_bar  entry  /’pointer), 

match  bit  .'l)  statio  ]  n  i  t.  (  '  1 '  b  ) ; 

/*  begin  */ 

call  disable_cpu_ interrupts? 

rail  write_ioport(irtprrnpt._enable_register, 

di  sablp_ni«^f>l/,_interr'.ipt  s  '  J 
if  ' ropy_ie  register  =  recpi ve^bl ook_ a va i la bl e  ) 
ther  do; 

rail  writ.p_bar  ( ad  d  r  (  rerei  ve_d  a  t  a_  b  loc  k ) ) ; 
call  write  io  port  (high ,.byte_r  ount_reg,  5); 

/#  1522  bytes  */  call  wri te_io_ port ( low  byte  count  rog 

/*  initiate  receive  D‘d?  ■■'/ 

call  write_io_por.t|’i"terrupt_enable_  register, 

receive_dma_dore ) ; 

c opy_ie_regi s ter  =  rerpive_dma_d one » 
end;  7*  do  */ 
else 

if  (copy  ie_regist.er  =  rerei ve_dma  done  ) 
then  do? 

do  1  =1  to  15Po; 

if  (trans'nit_data_blork.data_bytes'  i) 


receive_data_bl ork.data_bytes  '  i )  ) 

then 

match  =  0? 

end;  /*  iterative  do  * / 
if  '  match  =  7i)  then 


d  o; 

put  skip (2)  f=»d  i  t  '  '***  warning  *** ' ) 

(rnl(3J»)ta); 

put  skip  edit  ( '***  Packet,  Frror 
(col  *' 25)  ,a  ) ; 

end  ;  /*  ift,  */ 

operation  =  packet _rer«*i vei  J 
end  ; 
else 

if  ( copy_ie_re?i ster  =  transmit  dmadnie ) 
then  do;" 

call  write_io_pcrt'interrupt_enable_ register, 

receive  block _a v aildble ) ; 
conv_ie_regi ster  =  receive  block  available? 
end;  /*  if  then  do  */ 
end  HL  irtermpt  handler? 


command  status  codes:  procedure  'numa  nd  _sta  t’is  > 

external  returns  (char  (31.1)  varying); 


DECLARE 


command  status  fix°d  'bin  (7); 


if  command_status  =  0  then 
return  ('SUCCESS'); 

else 

if  command _status  =  l  then 

return  ''SUCCESS  WITT*  RETRIES'); 

else 

if  command  status  =  ?.  then 

return  ('ILLEGAL  COMMA  MU  '  ) ; 

else 

if  command  status  =  3  then 

return  ('INAPPROPRIATE  COMMAND' )  * 

else 

if  command_status  =  4  then 
return  ('FAILURE'); 

else 

if  command  status  =  5  then 

return  (  'PUFFER  SIZE  EXCEEDED'); 

else 

if  c ommand _sta tus  =  6  then 

return  ('FRAME  TOO  SMALL'); 

else 

if  command _status  =  9  then 

return  ( 'EXCESSIVE  COLLISIONS'); 

else 

if  command_sta  tus  =  10  then 

return  ('PU^F^F:  *LIGMMFNT  ERROR')? 

end  command  .status__nod.es; 

/  tf  $  #  Xt  #  #  #  #  J{e  #  *  #  #  sjc  s?  *  #  j{s  ijc  *  >;«  #  tf.  »jr  #  #  £  #  #  s*  s,‘t  %s  #  *  j|:  *  v  Jff  )(<  V  >*  *  *  ■*  *. a;: 

dia?nos  tic_codes  :  nrocedure  ( d  i  sta  tus  ) 

external  returns  (char '30)  varying); 

DFCLAPF 


dia^  status  fixed  bin  (7); 


if  diaff_status  =  0  then 
return  ('SUCCESS'); 
s° 


i?  lias  status  -  1  then 

return  ( 'nmio  mi  r-no^OC^SSCP  mt^orv  ERROR'); 

e  ls^ 

i  f  iia<?_status  -2  then 

return  (  'vmici  rmj  vrroR''; 

else 

if  dia*_statns  =  3  then 

return  { 'TRANSMITTER  EcR0R  ' ) ; 

else 

if  iiae  status  =  4  then 

return  ('PECEIVFR  ERROR''; 

else 

if  iiafi;_status  *  5  then 

return  ('L00RRA0K  FAILURE''; 


end  dia^nostir_codes; 


$  *  *  +  * ^  *  *  V  *  «  *  *  *  *  V  * 


/ 


end*  /*  procedure  hoardtest  * / 
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